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ABSTRACT 


This  thesis  describes  extensions  to  a  multilevel  VLSI 
logic  simulator  named  MultiSim.  Originally  developed  by  Dr. 
Ausif  Mahmood  of  the  Washington  State  University  for  large 
minicomputers  such  as  the  VAX-1  1  /780,  MultiSim  is  now 
operational  on  desktop  microcomputers  costing  only  a  few 
thousand  dollars.  In  addition,  MultiSim  has  been  expanded 
to  include  provisions  for  adding  user-defined  primitive 
cells  to  the  circuit  library,  true  multilevel  circuit 
expansion,  and  multiple  variations  of  library  primitives 
within  a  single  circuit. 
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I . 


INTRODUCTION 


A.  DISCUSSION 

Sophisticated  computer-aided-design  tools  have  become  a 
virtual  necessity  for  today's  logic  designer.  Current 
circuit  densities  are  on  the  order  of  two  hundred  thousand 
transistors  on  a  single  chip,  as  in  the  Intel  80386.  To 
commit  such  a  design  to  production  without  exhaustive 
simulation  before  the  first  chip  is  laid  down  in  silicon 
would  prove  disastrous.  In  turn,  the  algorithms  for 
simulation  must  be  able  to  accurately  model  extremely 
complex  elements  without  requiring  inordinate  amounts  of 
time . 

The  twin  factors  of  circuit  density  and  development  cost 
have  spurred  vigorous  research  in  developing  tools  for 
documentation,  digital  design,  and  simulation  techniques. 
Some  of  these  rely  on  hardware  for  rapid  calculations  while 
others  exploit  software  techniques  to  achieve  high  speed. 
The  emergence  of  graphics-capable  machines  has  had  an 
enormous  impact  as  well;  it  is  now  possible  to  "draw"  a 
circuit  on  a  computer  screen  and  to  have  the  computer 
produce  photo-ready  artwork  on  a  graphical  plotter.  These 
graphics-capable  machines  can  also  interact  with  simulators 
to  display  timing  waveforms  and  plot  the  behavior  of  the 
circuit  for  varying  inputs. 
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The  research  into  CAD  techniques  is  beginning  to  produce 
some  significant  products;  these  include  the  MAGIC  tools  and 
the  CRYSTAL  timing  analyzer  from  UC  Berkeley;  the  CLL  (chip 
layout  language),  SIM  and  ESIM  circuit  simulators  from 
Stanford;  MacPITTS  from  MIT;  and  an  increasing  number  of 
commercial  products  as  well. 

Of  tremendous  import  is  the  ongoing  revolution  in 
microprocessors--it  is  now  possible  to  obtain  microcomputers 
with  performance  approaching  or  even  equalling  the  DEC  VAX- 
11/780,  and  for  a  tiny  fraction  of  its  $200,000  price. 
Desktop  UNIX  systems  are  now  commonplace,  as  are  systems 
with  beyond  a  megabyte  of  main  storage  and  twenty  to  thirty 
megabytes  of  fixed  disk  storage.  Best  of  all,  in  quite  a 
few  cases  such  systems  may  be  had  for  much  less  than 
$10,000. 

The  advantages  of  porting  high-powered  CAD  tools  onto 
the  new  generation  of  "supermicros"  become  clear--low  cost, 
high  performance  and  genuinely  increased  throughput  as  each 
designer  can  possess  a  dedicated  workstation  whose  processor 
is  not  serving  several  other  users.  As  a  result,  the 
competition  in  this  market  is  becoming  quite  fierce;  in 
recent  years  designers  working  on  CAD  tools,  and  in 
particular  those  moving  them  to  micros,  have  played  their 
cards  quite  close  to  their  chests.  There  has  been 
relatively  little  published  on  simulation  algorithms  or 
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speed  improvement  techniques  lest  the  competition  gain  an 
advantage  in  a  new  product. 

Of  those  authors  who  have  published  algorithms,  the 
event-driven  simulation  has  become  the  method  of  choice 
[Ref.  1,  p.  668  and  Ref.  2,  pp.  182-186].  The  event-driven 
techique  exploits  "temporal  sparseness"  [Ref.  1,  p.  672]  of 
typical  VLSI  circuits;  that  is,  in  any  given  circuit,  only  a 
few  elements  will  be  active  at  a  given  time  and  must  be 
simulated.  The  rest  may  be  safely  ignored  with  no  loss  in 
accuracy. 

One  particularly  interesting  program  using  this 
technique  is  called  SAMS0N2.  This  program,  written  for  the 
VAX-1  1  /780,  reads  a  textual  description  of  a  user's  circuit 
[Ref.  1,  p.  679],  then  generates  C-language  routines 
describing  the  behavior  of  the  individual  circuit  elements. 
These  routines  are  then  compiled  and  linked  to  the  SAM2 
simulator  to  perform  the  simulation.  Using  event-directed 
techniques,  the  author  claims  speed  improvements  of  from 
four  to  over  ten  times  the  speed  of  SPICE2,  depending  on  the 
characteristics  of  the  circuit  under  test  [Ref.  1,  p.  682]. 

One  of  the  concerns  in  implementing  a  logic  simulator  is 
the  type  of  circuit  model  employed  [Ref.  3,  p.  76].  The 
function  of  the  model  is  to  describe  the  behavior  of  a 
circuit  component  to  an  input  stimulus.  The  two  major 
contenders  are  hardware  and  software  models--in  the  software 
model,  a  program  segment  describes  the  operation  of  the 
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circuit  element. 


The  software  model  will  either  be  at  the 


gate-level,  describing  the  element  in  terms  of  its  complete 
gate  interconnection,  or  the  behavioral  level,  where  the 
logical  relation  of  inputs  to  outputs  along  with  timing  data 
is  described  [Ref.  3].  The  hardware  model,  by  contrast,  is 
intended  to  be  used  with  a  sample  circuit  to  test  its 
behavior  in  actual  operation  [Ref.  3], 

Of  the  two,  the  software  model  is  much  less  expensive 
but  potentially  much  slower.  This,  then,  is  the  tradeoff-- 
the  time  required  for  simulating  circuits  in  software 
against  the  cost  of  actually  building  the  component. 

However,  as  simulation  techniques  improve,  interest  has 
dramatically  increased  in  software  modeling.  Several  logic 
simulators  are  now  available  that  mix  the  gate-level  circuit 
representation  with  behavioral  models,  offering  more 
attractive  speeds  of  operation.  Unfortunately,  many  of 
these  software  programs  are  still  intended  for  operation  on 
large,  expensive  computers  [Ref.  3,  p.  79],  so  the  steady 


improvement 

in  the  capabilities 

of 

microcomputers 

and 

workstations 

is  being 

eagerly 

followed . 

Several 

such 

machines,  as 

well  as 

some  of 

the 

new 

generation 

of 

microcomputer-based  logic  simulation  programs,  will  now  be 
considered. 

B.  COMMERCIAL  PRODUCTS 
1  .  EE  Designer 

EE  Designer  is  Visionics'  entry  into  the 
microcomputer-based  CAD  market;  at  $995,  it  is  one  of  the 
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least  expensive  available.  It  is  a  complete  package 
including  a  schematic  drawing  and  capture  section,  a  netlist 
generator  and  a  logic  simulator.  EE  Designer  is  configured 
to  run  on  an  IBM  PC  (or  100%  compatible)  or  IBM  PC/AT,  and 
in  order  to  be  genuinely  useful  a  20  megabyte  hard  disk  is 
required.  The  program  is  completely  menu-driven;  when 
initially  loaded  it  presents  a  menu  offering  the: 

*  schematic  drawing  routine 

*  schematic  capture  routine 

*  penplotter  drawing  routine 

*  netlist  generator 

*  simulator 

*  setup  options 

The  schematic  drawing  routine  takes  advantage  of  the 
Enhanced  Graphics  Adapter  in  the  PC-  and  AT-class  machines 


and  produces 

quite  good  graphics. 

The 

screen 

area 

is 

limited  by 

the 

relatively  small 

displays  available 

to 

desktop  PC's 

( a 

thirteen- inch  diagonal 

screen) 

but 

the 

resolution  within  that  area  is  acceptable.  The  drawing  area 
makes  up  the  major  portion  of  the  screen  with  a  keyboard 
command  line  at  the  bottom  and  a  menu  bar  along  the  right 
side.  Menu-bar  items  and  commands  are  selected  by  clicking 
a  mouse-controlled  pointer  on  the  desired  item.  Zooming  is 
available  in  three  fixed  ratios  (2:1,  4:1,  and  8:1);  other 
ratios  and  mouse-selected  viewing  areas  are  not  supported. 


The  display  is  in  color  so  readability  is  quite  good.  With 
a  color  plotter,  of  which  several  are  supported,  EE  Designer 
can  produce  photo-ready  artwork. 

There  is  a  large  repertoire  of  standard  TTL  parts  as 
well  as  several  basic  CMOS  gates  available  to  the  user;  in 
addition,  EE  Designer  allows  custom  circuits  to  be  added  to 
its  library.  Its  simulator  is  adequate  but  not  particularly 
quick.  It  operates  considerably  slower  than  the  Valid- 
enhanced  PC/AT  to  be  discussed  below,  but  to  offset  this  it 
does  not  require  the  purchase  of  an  expensive  coprocessor 
board . 

This  is  not  a  particularly  easy  package  to  use. 
Although  menu-driven,  the  user  interface  can  be  confusing 
since  it  is  often  unclear  (as  in  many  menu-driven  systems) 
as  to  how  to  move  from  one  section  of  the  program  to 
another.  Some  commands  require  the  user  to  return  to  the 
main  menu,  others  do  not.  While  in  drawing  mode,  many  of 
the  more  important  commands  must  be  entered  from  the 
keyboard  rather  than  selected  from  the  menu  bar;  however,  to 
enter  a  keyboard  command  requires  that  the  keyboard  first  be 
enabled  (this  is  done  by  selecting  "KEYBOARD"  from  the  menu 
bar  with  the  mouse,  then  pressing  RETURN  on  the  keyboard). 

There  are  three  manuals  covering  all  of  the  various 
commands  but  almost  no  examples  showing  their  use;  for  a 
program  as  complex  as  EE  Designer  this  is  an  unfortunate 
omission.  To  summarize,  EE  Designer  can  be  a  highly  useful 


program,  but  the  prospective  user  should  be  forewarned  that 
the  learning  curve  will  be  steep.  The  reward  is  a  powerful 
tool  at  probably  the  lowest  price  available  for  a 
commercial-grade  product. 

2 .  DASH 

Another  contender  in  the  PC/AT-based  CAD  workstation 
market  is  FutureNet's  DASH  program.  DASH  offers  similar 
features  to  EE  Designer,  but  has  the  look  of  a  much  more 
highly-polished  package.  It  ought  to--in  order  to  do  all 
that  EE  Designer  can  (schematic  draw/capture,  netlist, 
penplotting  and  simulation)  will  require  an  investment  of 
$17,330.  This  is,  of  course,  after  the  customer  has  already 
acquired  a  $6000  IBM  PC/AT  system  with  a  20-megabyte  hard 
disk,  Enhanced  Graphics  Adapter  and  long-persistence  color 
monitor . 

Once  all  the  money  has  been  spent,  the  user  will 
have  a  very  sophisticated  logic  design  tool  available.  The 
user  interface  is  very  smooth,  combining  a  menu  bar/mouse 
interface  with  the  conventional  keyboard  commands.  DASH 
slips  easily  from  module  to  module,  and  although  menus  are 
employed  they  operate  in  a  much  more  sophisticated  fashion 
than  EE  Designer.  Invoking  a  menu  causes  a  window  to  be 
placed  on  the  screen  with  the  available  choices;  picking  one 
of  the  selections  will  place  another  window  on  the  screen 
with  the  subchoices  for  the  selection  just  made.  Thus,  the 
user  is  not  only  aware  of  which  command  is  active,  but  where 


he  or  she  stands  in  relation  to  the  other  commands.  The 
effect  is  not  unlike  the  windowing  user  interface  of  the 
Macintosh  and  related  machines--the . f eel  of  the  program  is 
quite  intuitive  and  the  iearning  curve  is  consequently  much 
less  steep. 

Unfortunately,  in  the  area  of  simulator  performance 
it  is  obvious  that  the  host  machine  is  a  6  megahertz  IBM  PC- 
AT.  EE  Designer  should  be  able  to  simulate  circuits  just  as 
quickly  as  DASH  for  much  less  money;  however,  neither  is 
overly  fast.  In  short,  DASH  is  an  excellent  tool  but  it  is 
difficult  to  justify  the  steep  entry  price. 

3.  Valid  PC/AT 

The  reason  it  is  difficult  to  justify  the  entry 
price  for  DASH  is  this  machine.  For  about  two-thirds  the 
price,  Valid  Logic  Systems  places  a  coprocessor  board  into 
the  IBM  PC/AT  (or  100%  compatible)  with  additional  memory, 
installs  the  UNIX  operating  system  and  its  GED  (Graphics 
EDitor)  and  simulator  software  and  produces  a  significantly 
faster  machine.  The  coprocessor  board  offers  the  National 
NS32032  microprocessor  which  is  several  times  faster  than 
the  Intel  80286  of  the  host  PC/AT;  the  result  is  a 
significantly  faster  simulation.  Operation  of  this  machine 
is  identical  to  the  Valid  SCALDstar  workstation  discussed 
below;  the  major  difference  is  the  host  machine  and  the 
display  (the  IBM  uses  a  13-inch,  640  x  400  pixel  display). 

The  major  difference  between  the  SCALDstar  and  the 
Valid  PC/AT  is  the  appearance  of  the  simulation  results-- 


while  the  SCALDstar  (and  the  above  two  packages)  produce  a 
detailed  graphical  plot  of  the  output  waveforms,  the  Valid 
PC/AT  uses  a  simple  ASCII-character  display.  For  instance, 
a  square  wave  would  appear  as: 

•(variable  name>:  _ /  \ _ / 

This  is  less  than  impressive  considering  the  caliber  of  the 
GED  displays  and  the  capabilities  of  the  hardware  employed. 
It  seems  doubly  unfortunate  when  one  considers  that  an 
accurate  plot  of  the  simulation  results  are,  in  the  end, 
much  more  important  than  a  tidy  circuit  drawing  since  if  the 
circuit  fails  to  operate  correctly,  the  design  effort  was 
largely  wasted. 

4 .  Valid  SCALDstar 

The  Structured  Computer-Aided  Logic  Design  (SCALD) 
concept  was  developed  at  the  Lawrence  Livermore  National 
Laboratories  "specifically  to  address  the  new  needs  of  the 
logic  designer.  It  consists  of  both  a  design  method  and  a 
set  of  hardware  and  software  tools  to  support  that  method" 
[Ref.  4,  p.  135].  The  hardware  tool  is  the  MC68000-based 
SCALDstar  workstation  from  Valid  Logic  Systems.  This  is  one 
of  the  first  microprocessor-based  CAD  workstations  and 
represented  a  significant  departure  from  the  previous  norm-- 
graphic  terminals  attached  to  a  mainframe  or  large 
minicomputer  (such  as  a  VAX-11). 

The  SCALDstar  is  based  on  the  Intel  MultiBus;  the 
MC68000  operates  as  a  file  server  and  cluster  controller  for 


the  Intel  8086  processors  with  which  the  graphics  displays 
and  simulations  are  performed.  The  ECE  Department's  two 
SCALDstars  are  fairly  representative  installations  in  that 
each  possesses  four  megabytes  of  main  storage,  seventy 
megabytes  of  fixed  disk  storage  and  a  magnetic  tape 
cartridge  for  archival  use.  The  Department's  machines  are 
further  equipped  with  Ethernet  links  so  that  drawings  and 
other  data  may  be  exchanged  between  them.  The  SCALDstar 
employs  a  1  9-inch  monochrome  screen  for  circuit  design  work 
(a  second  19-inch  color  monitor  is  used  in  custom  design  of 
the  actual  silicon  with  a  different  set  of  software  tools). 
This  monitor  supports  1024  x  1024  pixel  resolution, 
equivalent  to  almost  twice  the  horizontal  and  nearly  three 
times  the  vertical  resolution  of  conventional  microcomputer 
displays.  Consequently,  the  level  of  visual  detail  in  the 
graphic  editor  is  most  impressive. 

The  software  tools  provided  are  highly-developed 
(the  Graphic  EDitor,  or  GED,  is  in  Version  8.0)  and  highly 
capable.  GED ' s  display  area  is  immense,  with  a  row  of 
mouse-selected  menu  options  along  the  right  side  and  a 
command  line  along  the  bottom.  Display  modes  are  endlessly 
flexible;  the  user  can  flip,  rotate,  invert  and  show 
alternate  versions  of  circuit  elements.  Also,  GED  is 
surprisingly  easy  to  use  for  a  program  of  its  complexity. 
The  mouse-based  interface  is  fairly  easy  to  learn  and  there 
are  few  routinely-used  commands  in  GED  that  are  not 


available  as  menu  selections  (as  opposed  to  EE  Designer, 
where  few  of  the  commands  are  available  as  menu  items). 

Preparing  a  completed  circuit  for  simulation  can  be 
done  in  two  ways: 

*  by  selecting  the  SIMULATE  command  from  GED;  this 
causes  GED  to  invoke  the  circuit  compiler  and  set  up 
the  simulator  screen. 

*  by  exiting  GED,  performing  the  circuit  compilation 
manually  and  entering  the  simulator  directly. 

The  tradeoff  between  the  two  methods  is  speed  (and 
to  a  lesser  extent,  display  capability).  SCALDstar  is  a 
multitasking  machine  based  on  the  UNIX  operating  system;  if 
the  simulator  is  called  from  GED,  GED  remains  active  while  a 
new  process,  corresponding  first  to  the  compiler  and  then 
the  simulator,  is  launched.  The  advantage  of  this  is  that 
signals  the  user  wishes  to  observe  may  be  "picked  up"  with 
the  mouse  and  "dropped"  into  the  simulator  window;  as  noted, 
this  makes  for  a  very  intuitive,  easy  to  use  tool.  However, 
he  or  she  pays  dearly  for  this  convenience  in  terms  of 
execution  speed.  Further,  with  most  of  the  window  taken  up 
by  GED,  only  a  few  lines  may  be  observed  on  the  simulator  at 
a  time.  If  the  user  wishes  to  forsake  a  bit  of  convenience, 
invoking  the  circuit  compiler  and  simulator  directly  will 
yield  a  dramatic  increase  in  execution  speed.  This  is 
particularly  significant  for  large  circuits  where 
compilation  times  of  fifteen  to  twenty  minutes  (or  in  some 
cases,  much,  much  longer)  might  otherwise  result.  As  an 


added  benefit,  the  entire  screen  is  now  available  to  observe 
circuit  lines;  as  many  as  forty  separate  lines  may  be 
displayed  at  once. 

The  simulator  operates  fairly  quickly  but  it  will 
not  operate  as  fast  as  the  PC/AT  machines;  while  the  AT ' s , 
even  without  a  coprocessor,  are  equipped  with  80286 
processors,  the  SCALDstar  is  operating  an  8086.  Even  in  the 
best  of  circumstances,  the  older  8086  will  simply  not  be 
able  to  keep  pace  with  the  newer  microprocessor . 

Finally,  the  item  having  the  greatest  impact  on  the 
SCALDstar  at  the  present  time  is  its  $50,000  price.  Even 
with  the  caliber  of  software  provided,  which  is  frankly 
exceptional,  newer,  faster  and  cheaper  machines  are 
arriving . 

5  .  ISI  Graphic  Workstation 

In  its  class,  where  the  benchmark  is  the  Sun 
graphics  workstation,  this  is  perhaps  the  most  impressive 
new  machine  on  the  market.  From  Integrated  Solutions,  this 
$30,000  workstation  is  based  around  the  Motorola  MC68020  32- 
bit  microprocessor  and  is  equipped  with  the  MC68881  floating 
point  processor.  The  Department  has  acquired  three  of  them, 
two  with  70  megabyte  fixed  disks  and  the  other,  which  is 
employed  as  the  master  and  file  server,  is  fitted  with  120 
megabytes  of  fixed  disk.  Each  machine  has  four  megabytes  of 
main  storage,  an  Ethernet  link,  an  interface  to  a  high- 
resolution  color  graphics  plotter  and  other  minor  equipment. 


Like  the  SCALDstar,  its  display  resolution  is  a  full  1024  x 
1024  pixels  but  in  color  as  well.  The  ISI  Workstation  runs 
BSD  4.2  Unix  as  its  native  operating  system  with  both  the  C 
and  Bourne  shells  provided.  In  addition,  it  offers  a 
desktop-type  iconic  user  interface  that  can  support  up  to 
eighteen  concurrently  operating  tasks,  each  in  its  own 
window.  This  machine  offers  a  substantial  percentage  of  the 
VAX-11 /780's  computational  power  and  offers  tremendously 
exciting  capabilities  for  the  designer  (for  a  price,  of 
course ) . 

The  Department  presently  has  the  Berkeley  MAGIC  VLSI 
design  tools  implemented  on  the  ISI's.  Although  MAGIC  is 
intended  for  custom  design  at  the  level  of  silicon,  these 
machines  are  more  than  capable  of  supporting  a  gate-level 
design  package.  It  is  significant  to  note  that  MAGIC  was 
developed  for,  and  intended  to  run  on,  the  VAX-11  family. 
The  fact  that  these  tools  are  operating  on  the  ISI 
workstations  with  little  loss  in  performance  is  an 
indication  of  just  how  much  capability  has  been  designed 
into  the  ISI  machines. 


II.  THE  MULT I SIM  PACKAGE 


A.  BACKGROUND 

Unfortunately,  two  common  threads  link  all  of  the 
previously-discussed  workstations  and  software  packages: 
they  are  either  prohibitively  expensive,  irritatingly  slow 
or  both.  Schools,  particularly,  are  hurt  by  the  inability 
to  afford  more  than  a  handful  of  Sun-caliber  machines  for 
laboratory  use.  Further,  the  lackluster  performance  of 
existing  simulation  routines  make  these  already  crowded 
machines  even  busier  as  the  students  must  schedule  long 
sessions  on  slow  machines.  (This  is  precisely  the  situation 
faced  by  the  Department  over  the  two  SCALDstar  workstations. 
To  help  improve  matters,  the  Department  was  able  to  procure 
only  an  additional  three  ISI  workstations.) 

Distilling  the  above  discussion,  a  clear  requirement 
emerges--a  fast  simulation  algorithm  that  can  run  on 
inexpensive,  easily-obtained  hardware. 

The  explosion  that  brought  the  Sun,  the  ISI  and  IRIS  to 
the  marketplace  has  not  neglected  the  lower  end  of  the 
spectrum,  either;  it  is  arguable  that  the  most  dramatic 
progress  has  been  made  in  the  so-called  "personal" 
computers.  Sixteen  bit  processors,  fixed  disk  drives  and 
acceptable  graphics  are  now  the  rule  rather  than  the 
exception  in  such  machines.  Best  yet,  the  current  crop  of 


personal  computers  carry  extremely  attractive  price  tags; 
for  the  price  of  one  SCALDstar,  it  is  possible  to  buy  twelve 
IBM  PC-AT  machines,  each  with  a  megabyte  of  main  storage  and 
twenty  megabytes  of  fixed  disk  storage.  Clearly,  the 
hardware  portion  of  the  requirement  has  been  met. 

B.  THE  TOOLS 

During  the  period  from  1981  through  1985,  as  his 
doctoral  research  at  the  Washington  State  University,  Ausif 
Mahmood  constructed  a  VLSI  logic  simulator  that  had  been 
developed  by  Dr.  H.  B.  Rigas.  This  simulator  is  based  on 
Ulrich's  Algorithm  [Ref.  5],  which  exploits  the  fact  that  in 
a  typical  circuit,  only  about  2.5%  of  the  various  elements 
that  compose  the  circuit  will  change  state  at  any  instant. 
Thus,  only  those  elements  whose  states  are  actually  changing 
need  to  be  modeled  and  the  rest  may  be  ignored.  The 
resultant  "event-driven"  simulation  operates-  approximately 
forty  times  faster  than  an  exhaustive  element-by-element 
("compiler-driven")  simulator  with  no  loss  in  accuracy. 

Further,  the  simulator  is  capable  of  multilevel 
operation.  Circuit  elements  are  constructed  hierarchically, 
building  complex  modules  out  of  simpler  ones,  and  this 
process  may  be  carried  to  an  arbitrary  number  of  levels. 
However,  when  simulating  such  a  circuit,  the  user  is  faced 
with  an  important  question--how  detailed  does  the  simulation 
need  to  be?  Is  the  high-level  description  adequate?  If 
not,  the  circuit  description  language  allows  the  user  to 
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expand  a  module  to  any  level  of  detail,  even  to  the  most 
basic  primitives  that  compose  each  submodule. 

There  are  three-  components  to  the  simulation  system, 
called  MultiSim: 

*  The  VLSI-Oriented  Hardware  Language,  or  VOHL. 

This  is  the  syntax  used  to  describe  a  circuit  to 
the  simulator; 

*  The  circuit  compiler .  This  is  a  separate  program 
from  the  simulator,  and  translates  the  VOHL 
circuit  description  into  the  data  structures  used 
by  the  simulation  program;  and 

*  The  Timing  Wheel  simulator .  This  is  the  event- 
directed  simulation  program. 

Both  the  compiler  and  simulator  are  written  in  the  C 
programming  language,  and  the  original  target  machine  was 
the  VAX  11/780  minicomputer  running  the  BSD  4.2  UNIX 
operating  system. 

1 .  VOHL  Syntax 

The  VOHL  description  language  is  a  user's  tool  to 
describe  digital  circuits  to  the  compiler  (a  complete 
discussion  of  VOHL  is  contained  in  Mahmood  [Ref.  6,  pp.  161— 
170]  with  a  reference  card  in  Appendix  A).  Figure  1  is  a 
typical  VOHL  circuit,  in  this  case  describing  a  JK  flip- 
flop.  The  MODULE  keyword  identifies  the  beginning  of  a  new 
module,  with  the  INPUTS  and  OUTPUTS  to  the  flip-flop  listed 
following  the  appropriate  keywords. 

The  TYPES  keyword  is  used  to  declare  variations  on 
system  primitives.  For  example,  several  different  NANDs  may 
be  declared  with  their  parameters  subsequently  set  by  the 
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MODULE:  JKFF; 

INPUTS:  J,  K,  CLK ; 

OUTPUTS:  Q,  Q'; 

TYPES:  INTERNALS:  SI,  R1  ; 

{ 

SI  =  NANDTHR ( Q 1 ,  J,  CLK); 
R1  =  NANDTHR (CLK,  K,  Q)  ; 
Q,  Q'  =  RSCELL ( SI ,  R1 ) ; 

} 

DEFINE:  ; 

INITIALIZE:  SI =0 ;  R1 =0 ; 
PRINTOUT:  J,  K,  CLK,  Q,  Q' 

MODULE:  RSCELL; 

INPUTS:  S,  R; 

OUTPUTS:  Q,  Q'; 

TYPES:  ; 

{ 

Q  =  NAND ( S ,  Q' ) ; 

Q"  =  NAND( Q ,  R); 

} 

END; 


Figure  1 .  A  J-K  Flip-Flop  in  VOHL 


MODULE:  JKFF; 

INPUTS:  J,  K,  CLK; 

OUTPUTS:  Q,  Q'; 

TYPES:  INTERNALS:  SI,  R1 ; 

{ 

SI  =  NANDTHR ( Q 1 ,  J,  CLK ) ; 

R1  =  NANDTHR ( CLK ,  K,  Q) ; 

Q,  Q'  =  RSCELL (SI ,  R1 ) ; 

} 

DEFINE:  NANDTHR:  RISEDELAY ( 0 , 0 ) = 3 ; 

EXPAND:  RSCELL:  NAND:  RISEDELAY ( 0 , 0 ) =1 , 

F ALLDELAY (0,0) =2,  FANOUT=15 
INITIALIZE:  SI =0 ;  R1 =0 ; 

PRINTOUT:  J,  K,  CLK,  Q,  Q' 

END; 


Figure  2.  The  J-K  Flip-Flop 
Using  Expansions 
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DEFINE  keyword  (discussed  below).  The  INTERNALS  keyword  is 
used  to  declare  "scratchpad"  variables  (those  which  are 
neither  inputs  or  outputs). 

Note  that  in  the  circuit  description,  each  statement 
is  of  the  form: 

output  variable  =  primitive  name  (input  variables)  ; 
where  the  primitive  name  corresponds  to  a  logical  function. 
The  compiler  is  not  equipped  to  evaluate  subexpressions 
within  the  input  variable  list,  as  this  could  quickly  become 
a  hopeless  task;  therefore,  the  internal  variables  act  as 
"placeholders"  for  use  in  later  expressions.  For  example, 
in  the  JK  flip-flop,  since  the  expression 

Q,  Q'  =  RSCELL ( NANDTHR ( Q ' , J , CLK ) ,  NANDTHR ( Q , K , CLK ) ) 
is  too  complicated,  it  is  broken  up  into  the  form  shown. 

The  circuit  body  is  preceded  by  the  opening  brace 
and  followed  by  the  closing  brace. 

After  the  circuit  body  of  the  main  module  come  the 
simulation  control  specifications.  It  is  possible  to  DEFINE 
parameters  of  primitives,  such  as  rise  or  fall  delay,  for 
more  detailed  analysis  or  for  fault  investigation. 
Primitives  may  also  be  EXPANDed  to  any  lower  level,  all  the 
way  to  AND-OR-INVERT  gates  if  desired.  Parameters  may  also 
be  specified  for  the  EXPANDed  primitives  if  the  user  wishes. 
Figure  2  illustrates  how  these  particular  keywords  are  used; 
in  this  example  the  RSCELL  is  assumed  to  be  a  library 
primitive,  so  its  description  is  not  included  after  the  J-K 
flip-flop. 


23 


The  INITIALIZE  keyword  is  used  to  set  up  initial 
conditions  for  the  circuit.  Both  internal  and  output 
variables  may  have  values  preassigned  in  this  manner. 
Lastly,  PRINTOUT  specifies  the  variables  to  be  displayed 
during  simulation. 

Note  that  submodules  may  be  included  in  the  VOHL 
description-- j ust  as  a  large  program  is  constructed  of  less 
complex  procedures  (which  may  themselves  be  made  of  sub¬ 
procedures,  and  so  on),  a  complex  circuit  may  be  built  up  in 
precisely  the  same  fashion.  The  submodules  are  included  in 
order  of  precedence,  with  the  higher-level  circuits 
preceding  the  lower. 

2 .  Compiler 

After  creating  a  VOHL  circuit  as  an  ASCII  text  file, 
the  user  invokes  the  compiler.  The  compiler  performs  three 
tasks  in  the  following  sequence: 

*  checks  for  requests  to  expand  a  primitive  to  greater 
detail ; 

*  performs  any  such  expansions  as  macro  substitutions 
of  low-level  VOHL  code,  and  performs  macro 
substitutions  of  user-defined  submodules; 

*  parses  the  resulting  single-level  VOHL  circuit  and 
builds  the  data  structures  used  by  the  simulator 
(discussed  below). 

Expansion  requests  come  in  two  forms:  explicitly,  by 
the  user  issuing  an  EXPAND  keyword;  or  implicitly,  by  the 
inclusion  of  submodules  in  the  VOHL  circuit.  In  the  first 
case,  the  compiler  scans  the  VOHL  circuit  for  EXPAND 


keywords;  if  any  are  found,  the  module  names  in  each  EXPAND 
line  are  placed  in  an  "expand  table."  The  compiler  checks 
the  second  case  by  scanning  for  additional  MODULE  keywords 
corresponding  to  user-defined  submodules;  any  that  it  finds 


are  also 

added 

to 

the  expand 

table.  In 

addition,  the 

compiler 

moves 

the 

structural 

descriptions 

of  these 

submodules 

into 

a 

temporary  library  for  use 

as  described 

below.  It  is  significant  to  note  that  an  EXPAND  keyword 
will  only  carry  out  expansions  to  the  next  lower  level;  if 
further  expansion  is  required  additional  EXPANDS  must  be 
issued . 

As  an  example,  Figure  2  shows  a  JK  flip-flop  that 
contains  an  RS  flip-flop  as  one  of  its  elements.  Here  the 
user  is  interested  in  examining  the  behavior  of  the  JK  while 
paying  particular  attention  to  the  RS,  hence  the  expansion 
request  for  the  RS  flip-flop.  Note  that  particular  values 
for  the  components  making  up  the  RS  have  been  called  for  as 
well.  When  the  compiler  encounters  this  circuit,  it  will 
trap  the  EXPAND  keyword  and  place  RSCELL  in  the  expand 
table . 

Observe  that  at  this  point,  although  the  first  steps 
have  been  taken  in  the  expansion  process,  the  user's  VOHL 
circuit  is  still  in  hierarchical  form.  The  next  step  is  to 
expand  the  hierarchical  representation  into  a  single  level; 
this  is  done  by  using  the  lower-level  modules  marked  in  the 
expand  table  as  macros.  For  system  primitives,  the  lower 
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level  modules  will  be  found  in  the  auxiliary  file  STRUC,  and 
for  user-provided  submodules  the  descriptions  will  be  in  the 
compiler-generated  temporary  library.  The  compiler  enters 
the  appropriate  library  to  extract  the  submodule  definition, 
then  substitutes  the  submodule  code  for  the  original  circuit 
line . 

Again  considering  the  JK  flip-flop,  since  the  RSCELL 
is  in  the  expand  table  the  compiler  substitutes  its  VOHL 
structural  code  for  the  expression 
Q,  Q'  =  RSCELL ( SI ,  R1  )  ; 

The  RSCELL' s  parameter  list  in  the  circuit  expression  is 
matched  with  the  structural  code's  INPUTS  and  the  output 
variables  are  matched  with  the  structural  code's  OUTPUTS. 


MODULE:  JKFF; 

INPUTS:  J,  K,  CLK ; 

OUTPUTS:  Q,  Q'; 

TYPES:  INTERNALS:  SI,  R1  ; 

{ 

SI  =  NANDTHR ( Q ' ,  J,  CLK); 

R1  =  NANDTHR (CLK,  K,  Q) ; 

Q  =  NAND( SI ,  Q ' ) ; 

Q'  =  NAND( Q,  R1 ) ; 

} 

DEFINE:  NANDTHR:  RISEDELAY ( 0 , 0 ) =3 ; 

NAND:  RISEDELAY ( 0, 0 ) =1 , 

F ALLDELAY ( 0 , 0 ) =  2 ,  FANOUT= 1 5 ; 
INITIALIZE:  SI =0 ;  R1=0; 

PRINTOUT:  J,  K,  CLK,  Q,  Q' 

END; 


Figure  3.  The  Expanded  JK  Flip-Flop 
Generated  from  Circuit  of  Figure  2 
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Performing  the  substitution  produces  the  circuit  shown  in 
Figure  3;  note  that  the  RSCELL  has  been  replaced  by  a  pair 
of  NANDs.  Also,  since  the  RSCELL  no  longer  appears,  the 
simulation  control  specifications  that  applied  to  the  NANDs 
in  the  EXPAND  line  have  been  moved  to  the  DEFINE  line 
instead . 

In  order  to  better  understand  the  actual  compilation 
phase,  it  is  first  necessary  to  introduce  the  concept  of  the 
descriptor  record.  These  records  describe  how  the 
components  that  make  up  the  circuit  are  interconnected  as 
well  as  the  behavior  of  each  component.  Figure  4  represents 
a  single  record;  the  various  fields  include  the  type  of 
primitive  function  the  record  describes  (an  AND  gate,  for 
instance),  pointers  for  up  to  two  inputs  and  fields  for 
their  values,  such  parameters  as  rise  and  fall  delay, 
technology  type,  fanout  and  so  on.  The  header  pointer  is 
used  to  tie  the  descriptor  records  together.  Not  shown  in 
Figure  4  is  a  field  for  an  extension  pointer.  A  single 
record  can  handle  only  two  inputs  and  one  output,  but  a 
primitive  function  may  have  an  arbitrary  number  of  inputs  or 
outputs.  To  expand  the  number  of  inputs  and  outputs, 
several  records  are  used  to  describe  the  primitive.  For 
example,  a  three  input  NAND  gate  requires  two  records--the 
first  two  inputs  are  handled  in  the  first  descriptor  and  the 
third  is  placed  in  the  second  descriptor  ( the  extra  input 
field  and  output  field  are  not  used). 
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PRIMITIVE  TYPE 


INPUT  1  VALUE 
INPUT  2  VALUE 


INPUT  N  VALUE 
I  RISE  DELAY _ 

FALL  DELAY 
ALLOWABLE  FAN-OUT 
OVERLOAD  FACTOR 
LOADING  FACTOR 
TECHNOLOGY _ 

HEADER  POINTER 
INPUT  1  POINTER 
INPUT  2  POINTER 


INPUT  N  POINTER 
PRESENT  OUTPUT 


Figure  4.  The  Descriptor  Record 
[Ref.  6,  p.  42] 
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There  is  also  a  degenerate  case  of  the  descriptor 
record;  this  is  the  "read-input"  function.  It  uses  only  one 
of  the  input  fields  and  performs  no  logical  f unction--the 
input  is  simply  passed  as  an  output  to  the  next  descriptor 
in  the  list.  This  descriptor,  clearly,  is  used  to  represent 
inputs  to  the  circuit. 

A  simpler  circuit  than  the  JK  flip-flop  will  be  used 
to  demonstrate  the  compilation  phase;  this  is  the  four-gate 
combinational  circuit  shown  in  Figure  5  in  both  schematic 
and  VOHL  form.  Figure  6  demonstrates  how  the  descriptors 
are  linked  together.  From  start  to  finish,  the  compiler 
assembles  the  descriptor  interconnections  in  the  following 
manner : 

Compiler  reads  XI  =  AND(A,  B); 

1 .  A  "read-input"  descriptor  is  built  for  input  A, 
then  another  is  built  for  input  B.  Each  header 
pointer  is  initialized  to  point  back  to  the 
respective  descriptor. 

2.  A  Type-1  (AND)  descriptor  is  built  for  the  AND 
gate  C.  Since  C  has  only  two  inputs  and  one 
output,  no  additional  descriptor  is  needed  and  the 
extension  pointer  is  left  as  NULL. 

3.  Since  A  is  an  input  to  the  AND  gate  C,  A's  header 
pointer  gets  the  address  of  C.  Further,  since  A 
is  used  nowhere  else,  C's  Input-#1  pointer  is 
pointed  back  at  A. 

4.  Likewise,  B's  header  pointer  gets  the  address  of 
C.  At  this  point,  B  is  not  used  anywhere  else 
either,  so  C's  Input-#2  pointer  is  pointed  back  to 

B. 
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MODULE:  COMP I LAT I ON_DEMO ; 
INPUTS:  A,  B; 

OUTPUTS:  Q; 

TYPES:  INTERNALS:  XI,  X2 ,  X3  ; 

{ 

XI  =  AND ( A ,  B) ; 

X3  =  OR (XI ,  B)  ; 

X2  =  INVERT (XI ) ; 

Q  =  OR ( X2 ,  X3) ; 

} 

DEFINE:  ; 

INITIALIZE:  X1=0,  X2=0 ,  X3  =  0; 
PRINTOUT:  A,  B,  Q; 

END; 


Figure  5.  The  Four-Element 
Demonstration  Circuit 
[Ref.  6,  p.  43] 
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Figure  6.  Descriptor  Interconnections 
for  the  Demonstration  Circuit 
[Ref.  6,  p.  43] 
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Compiler  reads  X3  =  OR (XI,  B)  ; 

1 .  A  descriptor  is  built  for  the  OR  gate  E.  As  with 
the  AND  gate,  no  extension  descriptors  are 
necessary. 

2.  B  is  an  input  to  E,  so  the  pointer  loop  B. header 
-->  C,  C.input2  -->  B  is  broken  to  insert  the  gate 
E.  C's  Input-#2  pointer  is  given  the  address  of 
E,  then  E's  Input-#2  pointer  is  given  the  address 
of  B.  Thus,  the  pointer  loop  is  now  B. header  --> 
C,  C.input2  -->  E,  E.input2  -->  B. 

3.  E  also  takes  the  output  of  the  gate  C  as  an  input, 
so  C's  header  pointer  gets  the  address  of  E.  As 
yet,  no  further  connections  with  E  need  to  be  made 
so  E's  Input-#1  pointer  points  back  to  C. 


Compiler  reads  X2  =  INVERT(XI); 

1 .  A  descriptor  is  built  for  the  inverter  D. 

2.  C  is  also  used  as  an  input  to  D,  so  the  pointer 
loop  C. header  -->  E,  E.inputl  -->  C  is  broken  to 
insert  the  inverter.  The  new  pointer  loop  is 
C. header  -->  D,  D.inputl  -->  E,  E.inputl  -->  C. 


Compiler  reads  Q  =  0R(X2,  X3); 

1 .  A  descriptor  is  built  for  the  OR  gate  F. 

2.  Since  D  is  an  input  to  F,  D's  header  gets  the 
address  of  F.  F's  input-#1  pointer  points  back  at 

D. 

3.  Likewise,  E's  header  gets  the  address  of  F,  and 
F's  Input-#2  pointer  points  to  E. 


Compiler  reads  simulation  control  specs. 

Compiler  reads  END;  and  stops. 

Note  that  the  OR  gate  F's  header  pointer  still 
points  at  itself.  Therefore,  F  is  not  used  as  an  input  by 
anything;  it  must  be  a  circuit  output.  In  this  case  it  is 
the  only  circuit  output,  so  all  of  the  other  header  pointers 
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have  values  other  than  the  descriptor  records  of  which  they 
are  a  part.  Note  also  that  the  pointers  are  arranged  in 
loops.  This  is  a  convenient  way  of  identifying  the  end  of  a 
list  while  traversing--if  the  start  point  is  reached  the 
traversal  is  complete. 

3 .  Simulator 

Each  of  the  pointer  loops  built  by  the  compiler 
corresponds  to  an  "activity  stack"  [Ref.  6,  p.  16]  in  the 
simulator.  A  state  change  in  a  circuit  element  causes  the 
pointer  loop  (activity  stack)  originating  from  that  element 
to  be  flagged  as  "potentially  active"  [Ref.  6]  and  scheduled 
for  evaluation.  The  simulator  checks  all  of  the  activity 
stacks,  in  order,  for  any  elements  requiring  evaluation; 
after  all  the  stacks  have  been  checked  the  cycle  repeats 
until  all  circuit  inputs  have  been  exhausted.  Because  of 
this  cyclic  behavior  the  simulation  algorithm  has  been 
dubbed  the  "timing  wheel"  [Ref.  6,  p.  18].  The  great  power 
of  this  algorithm  reveals  itself  in  that  those  stacks  not 
marked  for  evaluation  may  be  ignored;  as  noted  earlier,  most 
of  the  time  only  about  2.5%  of  the  circuit  elements  in  an 
average  circuit  are  actually  changing  state.  The  result  is 
better  than  an  order-of -magnitude  speed  increase  over  an 
exhaustive  simulation. 

Using  the  example  of  Figures  5  and  6,  altering  the 
input  A  will  result  in  the  AND  gate  C  being  marked  as 
"potentially  active"  and  scheduled  for  evaluation.  However, 
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if  input  B  is  altered  then  both  C  and  the  OR  gate  E  must  be 
scheduled,  since  both  gates  are  in  the  pointer  loop 
(activity  stack)  beginning  at  B.  Thus,  the  activity  stacks 
originating  at  both  gates  are  marked  "potentially  active." 
Assuming  that  changing  B  caused  an  output  change  at  C,  D 
becomes  potentially  active,  and  so  on. 

If  C  did  not  change,  however,  D  will  not  become 
potentially  active  and  may  be  ignored.  Likewise,  E  will  not 
become  potentially  active  unless  made  so  by  a  change  at  B. 
If  this  is  the  case,  the  simulator  may  quickly  skip  over 
them  to  subsequent  activity  stacks. 

C.  THESIS  STATEMENT 

The  compiler  and  timing  wheel  simulator  form  the 
software  nucleus  of  a  high-powered  CAD/CAE  system.  Though 
originally  developed  on  a  small  mainframe,  the  attraction  of 
placing  this  kind  of  power  into  the  new  breed  of  sixteen-bit 
desktop  microcomputers  is  irresistible.  Further,  since  both 
the  compiler  and  simulator  are  in  their  original  versions 
and  lack  a  number  of  features  (most  notably  the  ability  to 
add  additional  primitive  cells  to  the  library),  installing 
such  features  is  of  great  importance  to  improve  their 
usefulness . 

To  these  ends,  it  is  the  purpose  of  the  research 
described  in  this  thesis  to: 

*  install  the  MultiSim  system  with  its  VOHL  compiler 
and  timing  wheel  simulator  onto  an  IBM  PC-AT  desktop 
microcomputer ; 
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install  library  addition  routines  into  the  compiler; 


*  improve  the  user  interface  to  MultiSim  to  both 
its  use  and  increase  its  flexibility;  and 

*  improve  the  hierarchical  capabilities  of 
MultiSim  system. 


ease 

the 
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III.  MICROCOMPUTER  IMPLEMENTATION 


A.  PORTING  TO  A  MICROCOMPUTER 

The  first  step  in  building  the  microcomputer-based 
CAD/CAE  system  was  to  port  the  source  code  for  the  VOHL 
compiler,  the  timing  wheel,  and  the  various  auxiliary  files 
onto  a  microcomputer.  The  IBM  PC-AT  was  selected  due  to  its 
wide  acceptance  and  reasonable  price. 

The  development  environment  for  the  Computer 
Laboratory's  PC-AT  systems  includes  the  Microsoft  MS-DOS 
operating  system  (version  3.1),  the  Mansfield  Software  Group 
KEDIT  programming  editor  (version  3.51),  the  Lattice  C 
compiler  (version  3.10)  and  the  Digital  Research  GEM 
(Graphic  Environment  Manager)  system.  The  communications 
software  used  to  perform  file  transfers  with  the  VAX  is 
Simterm;  the  initial  downloads  of  both  the  VOHL  compiler  and 
simulator  were  performed  with  this  program.  In  addition, 
Hayes  Smartcom  II  is  available  for  communication  with  the 
VAX  when  VT-1 00  terminal  emulation  is  required. 

For  hardware,  the  development  machine  contains  an  Intel 
80286  with  an  80287  FPU,  one  megabyte  of  main  storage, 
twenty  megabytes  of  fixed  disk,  one  high-density  and  one 
normal  double-density  floppy  disk  drive.  The  machine  is 
also  equipped  with  the  Enhanced  Graphics  Adapter  (EGA)  and 
long-persistence  monitor. 
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The  original  author's  choice  of  C  as  the  implementation 


language  paid  rich  dividends  during -the  porting  process,  as 
it  was  ultimately  necessary  to  change  only  two  lines  of  C 
source  code  (excluding  file  pathnames)  out  of  almost  two 
hundred  thousand  bytes  of  code  to  enable  the  two  programs  to 
run  successfully.  The  offending  lines  dealt  with  ASCII 
string  input;  in  BSD  4.2  C,  it  is  possible  to  read  strings 
and  numbers  in  the  same  logical  line  using  f scanf--Lattice 
apparently  (though  this  is  not  documented)  requires  that 
strings  and  numbers  be  read  with  separate  fscanf  statements. 
Beyond  flattering  Dr.  Mahmood ' s  coding  techniques  in  using 
standard  structures  and  statements,  the  experience  was  a 
most  impressive  display  of  the  portability  of  C  code  across 
major  system  boundaries. 

Though  the  IBM  PC-AT  is  equipped  with  a  fixed  disk,  for 
speed  considerations  it  proved  desirable  to  exploit  the 
virtual-disk  capability  of  the  machine.  (A  virtual-disk  is 
a  block  of  main  memory  that  operates  as  an  extremely-high- 
speed  disk. )  The  VOHL  compiler  performs  large  numbers  of 
disk  accesses,  and  even  with  the  fixed  disk  execution  speed 
was  rather  less  than  desired.  Also,  it  is  desirable  to 
maintain  a  consistent  user  interface  to  the  MultiSim  system; 
the  commands  to  invoke  the  compiler  and  simulator  directly 
require  different  parameters  in  different  forms,  which  risks 
confusing  the  user  (particularly  a  student  in  a  laboratory 
setting)  and  increases  the  possibility  for  error. 
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Accordingly,  an  MSDGS  shell  was  built  around  the  two 
programs  with  the  following  features: 


1 .  It  enables  both  the  compiler  and  simulator  to  be 
invoked  by  a  single  command,  MODEL.  MODEL  has  two 
parameters,  the  name  of  the  circuit  to  be  modeled 
and  the  operation  to  be  performed.  There  are 
three  options: 

E:  End-to-end.  The  shell  will  invoke  the 
compiler  for  the  named  circuit,  then  cause 
the  simulator  to  execute.  For  the 
simulation,  there  must  be  a  file  of  circuit 
inputs  available  with  the  same  name  as  the 
circuit  with  a  ".IN"  extension.  The  results 
of  the  simulation  will  be  piped  to  the 
screen,  as  well  as  saved  in  the  file  <circuit 
name) .OUT. 

C:  Compile  only.  The  shell  will  invoke  the 
compiler  for  the  named  circuit.  The  results 
will  be  saved  as  <circuit  name>.SIM. 

S:  Simulate  only.  The  circuit  must  have  been 
previously  compiled  so  that  the  .SIM  file  is 
available;  also,  the  input  file  (.IN)  must 
also  be  present.  The  simulation  results  will 
be  in  ccircuit  name>.OUT. 

For  example,  if  the  JK  flip-flop  of  Figure  1 
was  saved  in  the  file  JKFF,  it  could  be 
compiled  with  the  command: 

MODEL  JKFF  C 

to  see  if  there  were  any  errors  in  the  VOHL 
syntax.  If  the  inputs  to  the  circuit  are 
contained  in  the  file  JKFF. IN,  the  command: 

MODEL  JKFF  E 

will  compile  the  VOHL  description,  then 
perform  the  simulation  and  return  the  results 
in  JKFF. OUT. 

2.  It  moves  all  of  the  various  working  files,  the 
VOHL  circuit  description  and  the  circuit  inputs  to 
the  virtual-disk.  Upon  program  termination,  the 
shell  copies  all  appropriate  files  back  to  the 
fixed  disk  for  permanent  storage. 
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The  compiler  was  modified  to  address  all  files  from  the 
virtual-disk,  as  was  the  timing  wheel.  Table  1  indicates 
the  speed  gained  by  utilizing  the  virtual-disk  for  a  complex 
circuit;  the  execution  time  on  the  Department's  VAX  11/780 
is  also  provided  for  comparison.  As  may  be  observed,  using 
the  virtual-disk,  execution  times  quite  favorable  to  the  VAX 
are  now  possible  on  a  desktop  computer  costing  only  a  few 
thousand  dollars,  heralding  a  very  exciting  new  dimension  in 
computer-aided  design  and  engineering.  No  longer  is  it 
necessary  to  spend  exhorbitant  amounts  of  money  for 
extremely  powerful  design  tools--such  tools  may  now  be  had 
by  small  companies  and  schools,  perhaps  even  individuals, 
on  off-the-shelf  equipment  available  at  any  computer  store, 
and  at  extremely  attractive  prices.  By  way  of  comparison, 
the  Department's  two  Valid  SCALDstar  workstations  cost 
$12,000  per  year  merely  to  maintain. 


TABLE  1 . 

THE  ALU  BENCHMARK 
(400  gates,  100  clock  cycles) 

IBM  PC-AT  IBM  PC-AT  VAX  11/780 

fixed  disk  virtual  disk 


compile  3:51 

simulate  :05 


1:49  3:00  (average) 

:05  :05  (average) 


All  of  the  above  times  were  obtained  with  a  stopwatch; 
the  VAX  execution  times  varied  with  the  load  on  the  system. 
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so  the  average  of  many  passes  is  shown.  The  execution  times 
on  the  single-user,  single-tasking  IBM  PC-AT  never  varied 
more  than  one  second  from  the  times  shown. 

B.  ENHANCEMENTS 

The  more  challenging  work  commenced  after  the  programs 
were  successfully  ported  to  the  IBM  PC/AT.  Though  powerful 
and  versatile,  the  tools  still  possessed  significant 
limitations.  While  they  were  chosen  on  the  basis  of  their 
usefulness,  there  were  only  fifteen  available  primitives. 
There  was  no  simple  way  to  add  additional  circuits  to  the 
library  although  the  original  design  made  provisions  for 
future  additions  in  the  design  of  its  various  data 
structures.  Finally,  all  user  interaction  with  the  programs 
were  text-only;  the  compiler  accepted  a  VOHL  circuit 
description  in  the  form  of  an  ASCII  text  file  as  input,  and 
the  timing  wheel  returned  a  table  of  outputs  vs.  time-- 
another  ASCII  file. 

In  many  cases,  a  user  prefers  to  draw  a  circuit  on  the 
computer  screen,  selecting  existing  cells  from  the  primitive 
library  and  using  the  mouse  to  make  cell  connections.  The 
compiler  could  then  capture  the  circuit  schematic  from  the 
screen  and  compile  the  circuit  in  the  normal  fashion.  The 
user  would  also  be  provided  the  option  to  save  the  new  cell 
as  a  primitive.  The  timing  wheel  would  then  model  the 
behavior  of  the  circuit,  but  instead  of  returning  a  table  of 
outputs,  would  display  the  simulation  results  on  the  screen 
graphically . 
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The  idea  of  a  graphical  user  interface  was  certainly 
fascinating  but  it  quickly  proved  to  be  unmanageable.  The 
currently-avai lable  graphical  programming  environment  for 
the  IBM  PC  family  is  the  Digital  Research  GEM  system; 
unfortunately,  this  is  a  highly  immature  system  with 
virtually  no  documentation  for  its  hundreds  of  complex 
function  calls.  Further,  it  possesses  significant 
limitations  for  use  as  a  foundation  for  CAD  tools: 


*  While  it  is  possible  to  move  about  in  a  display 
"window",  as  if  looking  over  different  areas  of  a 
circuit  layout,  there  is  no  capability  for  zoom- 
in/  zoom-out . 


*  There  is  no  way  to  build  "hooks"  or  "handles"  onto  a 
bit  image  such  as  a  NAND  gate,  where  GEM  can  detect 
that  an  input  line  or  output  line  (as  opposed  to  the 
entire  image)  has  been  selected. 

*  There  is  no  way  to  flip,  rotate  or  invert  images 
using  GEM  function  calls. 

*  Most  importantly,  though  GEM  is  itself  written  in  C, 
it  requires  assembly-language  bindings  to  the 
various  C  compilers  available  for  MS-DOS  (including 
Lattice).  At  present,  only  the  "small-memory-model" 
bindings  are  available;  these  bindings  allow  only  a 
64K  partition  of  memory  for  all  code,  data,  stack 
and  heap  space. 

The  GEM  code  merely  to  open  a  window  on  the  screen  uses 
nearly  all  of  that  64K  allotment--the  VOHL  compiler  alone 


already  requires  the  large  memory  model  (up  to  one  megabyte 
address  space  for  code  and  data).  The  large-model  bindings 


are  promised  as  updates  to  the  GEM  distribution  but  were  not 


available  in  time  for  use  in  this  project. 

the  effort  was  directed  at 
addition  routines.  The  addition 


Accordingly,  most  of 
implementing  the  library 


41 


routines,  too,  required  a  fresh  evaluation  of  the  compiler 
and  simulator.  In  the  interest  of  speed,  the  simulator 
maintains  two  representations  for  each  primitive  cell: 

*  the  structural  description.  The  structural 
.  description  for  the  primitives  is  in  VOHL  code,  with 

which  the  primitive's  behavior  may  be  precisely 
modeled;  and 

*  the  block  description.  The  block  description 
includes  C-language  procedures  to  simulate  the 
overall  behavior  of  the  primitives,  rather  than  the 
precise  detail  of  every  subelement.  Detail  of 
simulation  has  been  exchanged  for  execution  speed. 

The  block  description  also  includes  a  block  delay 
matrix  for  each  primitive;  this  is  a  table  of  delays 
from  each  input  of  the  primitive  to  each  output  and 
is  maintained  in  the  auxiliary  file  BLDEL. 

The  block-description  procedures  are  maintained  in  a 

separate  file  called  BLOCK  which  is  included  into  the 

simulator  at  compile-time .  Unfortunately,  since  the  block 

procedures  are  declared  and  accessed  in  the  simulator  by 

name,  making  changes  to  BLOCK  requires  that  the  entire 

simulator  be  recompiled.  Likewise,  the  primitive  names  are 

similarly  "hard-coded"  into  the  VOHL  compiler  in  the  file 

PRIMS;  altering  this  file  requires  recompiling  the  VOHL 

compiler.  This  is  obviously  unacceptable,  particularly  for 

a  CAD  package  intended  for  students  in  the  laboratory,  where 

frequent  additions  to  (and  subsequent  deletions  from)  the 

primitive  library  are  the  rule. 

The  recompilation  obstruction  was  circumvented  by 

divorcing  MultiSim's  names  for  the  primitives  from  the 

user's  name  for  them.  This  is  done  by  providing  two  name 

fields  in  each  primitive  description,  one  for  use  by  the 
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system  internally,  and  the  other  for  the  user's  name  for  the 
cell.  In  addition  to  the  fifteen  provided  primitives,  an 
additional  forty  are  declared  but  left  with  NULL 
descriptions  until  added  later  by  the  user.  In  this  way, 
the  programs  can  still  address  them  by  their  (internal) 
names,  their  actual  descriptions  may  be  kept  in  separate 
data  files  until  needed  at  runtime,  and  recompilation  is  not 
required  for  structure-only  additions.  The  most  visible 
manifestation  of  the  new  approach  is  the  file  PRIMITIV.DAT 
(Figure  7).  This  is  a  new  data  file  containing  five  fields: 

*  the  user-defined  name  for  the  primitive 

*  number  of  inputs 

*  number  of  outputs 

*  type  of  description  available  ( O=block-level , 

1 =structural ,  2=both) 

*  primitive  level  (to  be  discussed  in  Chapter  4) 


1  5 


OR 

NAND 

NOR 


READIN 

AND 


ANDTHRE 

NANDTHR 

SRBLOCK 

RETDBLO 

ANDFOUR 

NANDFOU 

ORTHREE 

ORFOUR 


INVERT 

EXOR 


0  0  2  0 
2  12  0 
2  12  0 
2  12  0 
2  12  0 
112  0 
2  12  0 
3  12  0 
3  12  0 

3  3  2  1 
6  5  2  1 

4  12  0 
4  12  0 

3  12  0 

4  12  0 


Figure  7.  PRIMITIV.DAT  file 
with  sample  primitives 


43 


As  noted  previously,  there  are  two  types  of  primitive 
descriptions  (block-  and  structural).  However,  in  the 
interest  of  flexibility,  it  is  no  longer  necessary  for  both 
to  be  available  at  the  same  time.  It  is  possible  to  have 
library  primitives  described  only  by  their  VOHL  structural 
code;  circuits  thus  described  will  always  be  expanded. 
Likewise,  primitives  may  be  described  in  terms  of  their 
block  behavior  exclusively--however ,  it  will  not  be  possible 
to  expand  such  primitives.  Thus,  there  are  now  effectively 
three  cases  for  primitive  descriptions,  corresponding  to  the 
method  chosen  for  adding  each  primitive  to  the  library: 

The  first  consists  of  both  the  structure  (in  VOHL)  and 
block  behavior  (C-language  procedure  with  block  delays);  the 
fifteen  original  primitives  are  described  in  this  fashion. 
This  is  the  conventional  form  of  cell  addition,  and  is 
invoked  by  prefacing  the  module  to  be  added  with  the  keyword 
ADDLIB.  The  user  is  expected  to  supply  the  block-level  C 
language  procedure,  and  the  structural  definition  is,  of 
course,  contained  in  the  user's  VOHL  program.  The  compiler 
calculates  the  block  delays  itself. 

In  the  second  case,  the  user  may  not  be  interested  in 
the  block  behavior  of  the  circuit--it  may  be  a  critical 
component,  and  its  behavior  must  be  completely  known  in 
maximum  detail  at  all  times.  For  such  a  case,  the  block 
descriptions  may  be  omitted;  this  process  is  called  a 
structure-only  addition.  To  perform  this  addition,  the 
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module  in  the  VOHL  circuit  to  be  added  is  prefaced  with  the 
keyword  ADSTRUC. 


Finally,  if 

the  circuit 

is  very 

complex , 

or  it 

is 

not 

necessary  to 

completely 

specify 

every 

element 

of 

its 

behavior,  the  structural  description 

may  be 

omitted 

and 

the 

block  description  will  always  be  used  whenever  reference  to 
the  circuit  is  made.  This  block-only  addition  is  made  by 
marking  the  circuit  to  be  added  with  the  keyword  ADBLOCK . 

C.  STRUCTURE-ONLY  ADDITION 

Due  to  time  constraints,  the  structure-only  addition  is 
the  only  method  presently  fully-installed  into  the  compiler. 
The  design  considerations  for  block-only  and  complete 
addition  may  be  found  in  Chapter  5,  Future  Research. 

If  structure-only  additions  are  called  for,  the  compiler 
opens  a  file  and  stores  each  new  VOHL  cell  description  there 
(several  cells  may  be  added  at  once,  as  long  as  each  one  is 
composed  only  of  previously-defined  primitives).  It  also 
strips  off  the  addition  keywords  so  that  the  circuit  may  be 
compiled  normally.  Once  the  circuit  has  been  completely 
scanned  for  addition  requests,  compilation  then  proceeds  in 
the  usual  manner.  After  compilation,  the  new  cells' 
structural  descriptions  are  added  into  the  STRUC  auxiliary 
file.  Their  user-defined  names,  number  of  inputs,  number  of 
outputs,  and  the  "structure-only"  flag  are  added  into 
PRIMITIV.DAT  for  future  reference. 

Figure  8  illustrates  a  four-bit  adder  composed  of 
single-bit  full  adders,  which  are  in  turn  made  up  of  half 
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adders.  In  this  circuit,  it  is  desired  to  add  the  half 
adder  as  a  cell  primitive,  hence  the  ADSTRUC  keyword  placed 
just  prior  to  the  MODULE  keyword  of  the  half  adder.  Figure 

9  shows  the  user  circuit  immediately  prior  to  entering  the 
actual  compilation;  the  ADSTRUC  keyword  has  been  removed, 
and  the  half  adder  has  been  stored  in  the  auxiliary  file 
NEWCKTS.VHL.  Once  compilation  is  complete,  the  compiler 
enters  NEWCKTS.VHL,  detects  a  structural  addition  request 
from  the  keyword  (which  was  left  in  place  for  this  purpose), 
and  makes  the  additions  to  PRIMITIV.DAT  and  STRUC  (Figures 

10  and  11  respectively). 

D.  USING  THE  ADDITIONS 

Adding  a  structural  description  to  the  library  is  a 
straightforward  process,  but  what  is  not  so  simple  is  making 
use  of  the  cells  thus  added.  Unless  told  to  do  otherwise 
with  the  EXPAND  statement,  MultiSim  will  use  the  block 
description  for  the  primitives  in  the  interest  of  speed. 
Due  to  the  manner  in  which  the  compiler  is  built,  it  is  not 
possible  to  intercept  a  call  .to  a  block  procedure  which  is 
not  present  in  the  block  library  once  compilation  starts-- 
the  structural  description  must  be  available  beforehand.  To 
compound  the  problem,  structure-only  descriptions  may  be 
arbitrarily-many  levels  deep.  For  example,  consider  again 
the  four-bit-adder  of  Figure  8.  If  both  the  full  adder  and 
half  adder  are  in  the  primitive  library,  it  is  perfectly 
correct  to  describe  the  circuit  as  in  Figure  12. 
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MODULE:  FOUR_BIT_ADDER; 

INPUTS:  AO,  A1  ,  A2 ,  A3,  BO,  B1  ,  B2 ,  B3, 
OUTPUTS:  SO,  Si,  S2 ,  S3,  C03 ; 

TYPES:  INTERNALS:  COO,  COl ,  C02  ; 

{ 


SO, 

COO  =  FULL 

ADD (AO , 

30, 

CIO) 

SI  , 

COl  =  FULL 

ADD( A1 , 

B1  , 

COO) 

S2  , 

C02  =  FULL 

ADD ( A2 , 

B2  , 

CO  2  ) 

S3, 

CO  3  =  FULL" 

ADD (A3 , 

B3  , 

CO  3  ) 

} 

(simulation  specifications  ) 
(as  desired  ) 

MODULE:  FULL_ADD; 

INPUTS:  A,  B,  Cl; 

OUTPUTS:  S,  CO; 

TYPES:  INTERNALS:  X,  Y,  Z; 

{ 

X,  Y  =  HALF_ADD( A,  B); 

S,  Z  =  HALF_ADD ( X ,  Cl); 

CO  =  OR ( Z ,  Y) ; 

} 


ADSTRUC ; 

MODULE:  HALF_ADD; 
INPUTS:  A,  B; 
OUTPUTS:  S,  CO; 
TYPES:  ; 

{ 

S  =  EXOR ( A ,  B) ; 
CO  =  AND ( A ,  B) ; 
} 

END; 


Figure  8.  The  Four-bit  Adder 
Prior  to  Structural  Addition 


CIO 


47 


MODULE:  FOUR_BIT_ADDER ; 

INPUTS:  AO,  A1 ,  A2 ,  A3,  BO,  B1 ,  B2,  B3,  CIO; 
OUTPUTS:  SO,  SI,  S2,  S3,  C03; 

TYPES:  INTERNALS:  COO,  C01 ,  C02; 

{ 


SO, 

COO  =  FULL 

ADD (AO, 

BO, 

CIO)  ; 

SI  , 

COI  =  full" 

ADD ( A1  , 

B1  , 

COO)  ; 

S2  , 

C02  =  FULL" 

_ADD  (  A  2  , 

B2  , 

C02 )  ; 

S3, 

C03  =  FULL" 

~ADD  (A3  , 

B3  , 

CO  3 )  ; 

} 

(simulation  specifications  ) 

(as  desired  ) 

MODULE:  FULL_ADD; 

INPUTS:  A,.  B,  Cl; 

OUTPUTS:  S,  CO; 

TYPES:  INTERNALS:  X,  Y,  Z; 

{ 

X ,  Y  =  HALF_ADD ( A ,  B ) ; 

S,  Z  =  HALF_ADD ( X ,  Cl); 

CO  =  OR ( Z ,  Y) ; 

} 

MODULE:  HALF_ADD; 

INPUTS:  A,  B; 

OUTPUTS:  S,  CO; 

TYPES:  ; 

{ 

S  =  EXOR ( A ,  B) ; 

CO  =  AND( A,  B) ; 

} 

END; 

User's  Circuit  With  Contents  of  Auxiliary 

Keyword  Removed  File  NEWCKTS . VHL 


ADSTRUC ; 

MODULE:  HALFADD; 
INPUTS:  A,  B; 
OUTPUTS:  S,  CO; 
TYPES:  ; 

{ 

S  =  EXOR (A,  B) ; 
CO  =  AND ( A ,  B ) ; 
} 

END; 


Figure  9.  New  Module  is  Ready 
for  Insertion  Into  Structure  Library 
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1  6 

READIN 

AND 

OR 

NAND 

NOR 

INVERT 

EXOR 

ANDTHRE 

NANDTHR 

SRBLOCK 

RETDBLO 

ANDFOUR 

NANDFOU 

ORTHREE 

ORFOUR 

HALF  AD 


0  0  2  0 
2  12  0 
2  12  0 
2  12  0 
2  12  0 
112  0 
2  12  0 
3  12  0 
3  12  0 

3  3  2  1 
6  5  2  1 

4  12  0 
4  12  0 

3  12  0 

4  12  0 
2  2  11 


Figure  10.  PRIMITIV.DAT  After  the  Addition 


existing 

modules 


} 

MODULE:  HALF_ADD; 
INPUTS:  A,  B; 
OUTPUTS:  S,  CO; 
TYPES:  ; 

{ 

S  =  EXOR (A,  B); 
CO  =  AND ( A ,  B) ; 
} 


Figure  1 1 .  Structural  Description 
File  After  Addition 
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MODULE:  FOUR_BIT_ADDER; 

INPUTS:  AO,  A1 ,  A2,  A3,  BO,  B1 ,  B2,  B3 ,  CIO; 
OUTPUTS:  SO,  SI,  S2 ,  S3,  C03; 

TYPES:  INTERNALS:  COO,  C01 ,  C02 ; 

{ 


SO, 

COO  =  FULL 

ADD (AO , 

BO, 

CIO)  ; 

SI  , 

C01  =  FULL 

ADD  ( A1  , 

B1  , 

COO )  ; 

S2  , 

C02  =  FULL" 

"ADD(  A2  , 

B2  , 

C02  )  ; 

S3, 

C03  =  FULL" 

ADD( A3 , 

B3  , 

CO  3 )  ; 

} 

(simulation  specifications  ) 
(as  desired  ) 


Figure  12.  Four-Bit  Adder 
With  Lower-level  Cells  as  Primitives 


Since  neither  the  full  adder  or  half  adder  have  block 
descriptions,  the  structural  descriptions  must  be  made 
available  as  if  an  expansion  were  being  performed  on  both 
submodules.  This  requirement  led  to  a  "precompiler"  which 
examines  the  circuit  prior  to  the  VOHL  compiler  proper.  It 
examines  each  function  name,  checking: 


*  first,  to  see  if  the  function  name  corresponds  to  a 
valid  primitive. 

*  second,  if  so,  it  inquires  as  to  whether  the 
structural  description  is  the  only  one  available  for 
this  primitive.  If  this  is  also  the  case,  the 
precompiler  passes  control  to  a  special  "structure- 
only"  expansion  routine. 

The  expansion  routine  enters  the  primitive  structural 
library  and  appends  the  description  of  the  target  primitive 
to  the  user's  circuit;  in  a  sense,  it  works  very  much  like 
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the  normal  expansion  procedure.  However,  unlike  the  normal 
one  this  procedure  is  recursive--it  is  possible,  as  in  the 
case  of  the  four  bit  adder,  that  the  submodule  just  appended 
also  contains  function  names  with  structure-only 
descriptions.  The  procedure  must  therefore  examine  the 
newly-added  module  in  exactly  the  same  fashion  as  the 
original  circuit.  If  a  module  is  found  that  fits  the  above 
two  criteria,  it  simply  calls  itself  and  repeats  the  append 
process.  The  process  stops  when  no  function  name  fits  the 
entry  criteria. 

Continuing  the  example,  the  expansion  routine  sniffs  at 
the  four-bit-adder  of  Figure  1 2  and  notices  that  FULL_ADD 
has  only  a  structural  description.  It  therefore  extracts 
the  VOHL  description  of  the  FULL_ADDer  and  appends  it  to  the 
end  of  the  four  bit  adder  circuit  (Figure  13).  (As  the 
routine  encounters  subsequent  references  to  FULL_ADD,  it 
simply  skips  to  the  next  line;  only  one  copy  of  each 
submodule  is  necessary.)  However,  as  the  routine  scans 
FULL_ADD,  it  likewise  detects  the  HALF_ADDer,  enters  the 
primitive  library  and  appends  the  structural  description  of 
the  HALF_ADDer  to  the  previous  two  cells.  As  the  primitives 
that  make  up  the  half  adder  are  completely  described,  the 
process  may  now  stop  leaving  the  circuit  description  of 
Figure  14  as  the  version  to  be  compiled. 
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MODULE:  FOUR_BIT_ADDER; 

INPUTS:  AO,  A1 ,  A2 ,  A3,  BO,  B1 ,  B2 ,  B3 , 
OUTPUTS:  SO,  SI,  S2,  S3,  C03  ; 

TYPES:  INTERNALS:  COO,  C01 ,  C02; 

{ 


SO, 

COO  =  FULL 

ADD (AO, 

BO, 

CIO)  ; 

SI  , 

COI  =  FULL 

ADD  ( A1  , 

B1  , 

COO )  ; 

S2, 

CO 2  =  FULL 

~ADD(  A2  , 

B2  , 

C02 )  ; 

S3  , 

C03  =  FULL" 

ADD (A3 , 

B3, 

C03)  ; 

} 

(simulation  specifications  ) 
(as  desired  ) 

MODULE:  FULL_ADD; 

INPUTS:  A,  B,  Cl; 

OUTPUTS:  S,  CO; 

TYPES:  INTERNALS:  X,  Y,  Z; 

{ 

X,  Y  =  HALF_ADD( A,  B); 

S,  Z  =  HALF_ADD ( X ,  Cl); 

CO  =  OR ( Z ,  Y) ; 

} 


Figure  13.  The  Adder  After  the 
Expansion  Routine's  First  Pass 


CIO 
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MODULE:  FOUR_BIT_ADDER; 

INPUTS:  AO,  A1  ,  A2,  A3,  BO,  B1  ,  B2 ,  B3,  CIO; 
OUTPUTS:  SO,  SI,  S2 ,  S3,  C03; 

TYPES:  INTERNALS:  COO,  C01 ,  C02 ; 

{ 


SO, 

COO  =  FULL 

ADD (AO, 

BO, 

CIO)  ; 

SI  , 

COI  =  full" 

ADD  (  A1  , 

B1  , 

COO)  ; 

S2, 

CO 2  -  FULL" 

ADD ( A2 , 

B2  , 

C02 )  ; 

S3, 

CO  3  =  FULL" 

ADD( A3, 

B3, 

CO  3 )  ; 

} 

(simulation  specifications  ) 
(as  desired  ) 

MODULE:  FULL_ADD; 

INPUTS:  A,  B,  Cl; 

OUTPUTS:  S,  CO; 

TYPES:  INTERNALS:  X,  Y,  Z; 

{ 

X ,  Y  =  HALF_ADD ( A ,  B ) ; 

S,  Z  =  HALF_ADD ( X ,  Cl); 

CO  =  OR ( Z ,  Y)  ; 

} 

MODULE:  HALF_ADD; 

INPUTS:  A,  B; 

OUTPUTS:  S,  CO; 

TYPES:  ; 

{ 

S  =  EXOR ( A ,  B) ; 

CO  =  AND ( A ,  B) ; 

} 


Figure  14.  The  Adder  to  be  Passed 
to  the  Compiler 
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IV.  ADDITIONAL  ENHANCEMENTS 


A.  BUG  FIXES 

1 .  Hashing  Algorithm 

As  more  features  are  installed  into  a  program  and 
more  of  its  capabilities  are  exercised,  it  is  unfortunately 
quite  natural  that  some  previously-undetected  bugs  should 
crop  up  in  the  original  version.  To  date,  .MultiSim  has 
offered  two. 

The  first  was  a  minor  bug  in  the  hashing  scheme  that 
the  compiler  and  simulator  used  to  uniquely  identify  input 
and  output  variable  names;  the  original  hashing  algorithm 
was  a  single-level  procedure  that  computed  the  hashvalue  by 
summing  the  ASCII  codes  of  each  character  in  the  variable 
name.  Though  simple  and  usually  effective,  this  scheme  can 
produce  collisions--f or  instance,  the  variables  A2 ,  B1  and 
CO  will  all  hash  to  the  same  value  ( A2  yields  65+50=115,  B1 
yields  66+49=115,  CO  yields  67+48=115).  The  corrected  code 
[Appendix  B]  stores  the  hashvalues  in  a  small  table  and 
checks  a  newly-generated  value  against  this  table.  If  a 
match  is  found  (e.g.,  two  variable  names  hash  to  the  same 
value),  a  prime  number  is  added  to  the  newly-produced 
hashvalue  and  the  table  comparison  restarts.  This  process 
repeats  until  no  collision  occurs,  thus  assuring  that  no  two 
variable  names  will  produce  the  identical  hashvalue. 
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2 .  Multilevel  Expansion 


The  second  bug  was  a  bit  more  interesting.  As 
originally  conceived,  the  EXPAND  keyword  was  to  enable  the 
user  to  call  for  a  primitive  to  be  expanded  to  any  lower 
level  [Ref.  5].  As  installed,  however,  issuing  the  EXPAND 
will  cause  the  primitive  specified  to  be  expanded  only  to 
the  next  lower  level  (see  also  Chapter  3).  In  order  for 
multilevel  expansion  to  occur,  the  compiler  needs  to  check 
each  submodule  to  see  if : 

*  the  level  called  for  has  been  reached,  or; 

*  the  expansion  has  been  carried  out  to  the  depth 
requested,  but  the  named  target  primitive  is  not 
contained  in  any  submodule. 

Further,  the  original  library  primitives  were  not 
ordered  in  relation  to  each  other;  if,  for  instance,  a  full 
adder  were  to  be  expanded  into  its  constituent  gates,  there 
was  no  way  to  tell  how  many  levels  deep  the  expansion  must 
go . 

The  first  step  in  implementing  true  multilevel 
expansion  was  to  add  a  "level"  field  to  each  primitive 
description  (Figure  7  of  Chapter  4).  The  level  field 
operates  quite  simply: 

Basic  gates,  the  lowest-level  primitives,  are 
assigned  level  0.  Any  element  composed  of  level-0  gates  is 
therefore  level  1 .  If  a  circuit  is  composed  of  at  least  one 
level-1  element  it  is  assigned  level  2,  and  so  on.  Thus, 
the  "level"  field  indicates  where  in  the  hierarchy  each 
primitive  occurs. 
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A  recursive  procedure  [Appendix  B]  was  built  that 
checks  the  constituent  elements  of  a  primitive  to  be 
expanded.  If  the  "destination"  primitive  is  of  a  lower 
level  than  a  particular  submodule,  this  submodule  will  be 
expanded  and  the  submodules  that  make  it  up  will  also  be 
checked.  The  process  repeats  until  either  all  occurrences 
of  the  "destination"  have  been  found  or  all  primitives  of 
the  same  level  as  the  destination  are  reached.  If  the 
latter  occurs,  the  compiler  alerts  the  user  that  it  couldn't 
find  the  destination  and  provides  the  option  to  either 
continue  anyway  or  to  quit. 

Consider  the  four-bit  adder  of  Figure  15,  and  allow 
the  full  adder  and  half  adder  to  be  completely-described 
(e.g.,  both  structural  and  block-only  descriptions  in  the 
appropriate  libraries).  In  this  case,  it  is  desired  to 
expand  the  full  adders  into  AND  gates.  Figure  16  shows  the 
full  adder  and  half  adder  for  reference. 

As  the  compiler  encounters  the  EXPAND:  FULLADD:  AND; 
statement,  it  adds  the  full  adder  to  the  expand  table  and 
enters  the  recursive  routine.  The  routine  examines  the 
three  circuit  lines  of  the  full  adder  and  discovers  that  two 
of  them  are  of  a  higher  level  than  the  AND  gate  (the  two 
HALFADD  lines).  Therefore  the  routine  adds  the  half  adder 
to  the  expand  table  and  calls  itself  again  to  examine  the 
half  adder.  The  half  adder  contains  -an  AND  gate,  and  since 
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MODULE  : 

ADDER4 ; 

INPUTS  : 

AO  , 

A1  , 

A2 ,  A3, 

BO, 

OUTPUTS: 

SO  , 

SI  , 

S2 ,  S3, 

C03 

TYPES  : 

INTERNALS 

:  COO, 

C01 

31  ,  B2  , 
C02 ; 


{ 


SO, 

COO=FULLADD( AO , 

BO  , 

CIO)  ; 

C1 

1  t 

C01 = FULLADD ( A1 , 

B1  , 

COO )  ; 

S2 , 

C02= FULLADD ( A2 , 

B2  , 

C01  )  ; 

S3  , 

CO 3= FULLADD ( A3 , 

B3  , 

CO  2 )  ; 

} 


B3  , 


DEFINE: ; 

EXPAND:  FULLADD:  AND; 

INTIALI ZE :  C00=0,  001=0,  CO2=0; 
PRINTOUT:  S3,  S2 ,  SI,  SO; 

END; 


Figure  15.  The  Four-Bit  Adder 
Showing  Multilevel  Expansion 


MODULE  :  FULLADD; 

INPUTS  :  A,  B,  CIN; 

OUTPUTS  :  S,  CO; 

TYPES  :  INTERNALS:  X,  Y,  Z; 

{ 

X,  Y  =HALFADD ( A ,  B); 

S,  Z=HALFADD ( X ,  CIN); 
CO=OR ( Z ,  Y); 

} 

MODULE  :  HALFADD; 

INPUTS  :  A,  B; 

OUTPUTS :  S ,  CO ; 

TYPES:  ; 

{ 

S=EXOR( A,  B); 

C0=AND ( A , B ) ; 

} 


Figure  16.  Lower-level  Components 


CIO; 
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the  EXOR  is  also  a  level-0  gate  the  routine  exits  and  marks 
the  search  for  ANDs  as  successful.  Thus,  after  the  routine 
exits  the  expand  table  contains  not  only  the  full  adder,  but 
the  half  adder  as  well,  and  the  full  adder  will  in  fact  be 
expanded  into  AND  gates  in  the  process  described  in  Chapter 
3. 


B .  NEW  FEATURES 

1 .  Primitive  Cell  Substitution 

When  developing  VLSI  circuits  it  is  not  uncommon  to 
integrate  devices  spanning  several  technologies.  An  example 
of  this  is  a  RAM  ( Random-Access  read/write  Memory)  module-- 
the  memory  cells  will  most  likely  be  composed  of  CMOS  or 
NMOS ,  but  the  "housekeeping"  circuits  will  in  all 
probability  be  TTL.  Each  technology  has  its  strengths  and 
weaknesses,  and  the  circuit  designer  may  frequently  be 
interested  in  evaluating  the  effects  and  tradeoffs  of  each. 
In  addition,  the  phenomenon  of  skew  is  of  vital  concern  in 
many  combinational  as  well  as  sequential  circuits--here  the 
designer  is  interested  in  the  effects  of  varying  delays 
along  parallel  circuit  paths.  Such  delays  may  be  caused  by 
gates  whose  propagation  delays  are  nonuniform  from  gate  to 
gate;  their  effect  is  to  cause  signals  which  would 
ordinarily  arrive  at  a  given  point  at  the  same  time  to 
differ  slightly,  with  occasionally  serious  consequences. 

In  an  effort  to  model  such  phenomena,  the  original 
MultiSim  provided  the  EXPAND  and  DEFINE  keywords  to  allow  a 
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user  to  specify  individual  parameters  for  the  various 
circuits  composing  the  design.  However,  such  definitions 
are  global;  issuing  a  DEFINE  for  an  AND  gate,  for  instance, 
causes  all  AND  gates  appearing  in  the  circuit  to  possess  the 
defined  characteristics.  This  poses  no  difficulty  if  the 
user  has  built  all  of  the  modules  and  submodules;  the  TYPES 
statement  may  be  used  to  create  a  particular  version  of  a 
primitive  and  the  DEFINE  statement  issued  for  the  new 
version  (in  the  case  of  the  AND,  creating  an  AND2  of  type 
AND  and  DEFINEing  the  AND2). 

Unfortunately,  there  is  still  the  matter  of  any 
higher-level  primitives  in  the  cell  library.  Consider  again 
the  four-bit  adder  of  Figure  1 5--if  the  adder  is  made  a 
structural  primitive,  then  there  is  no  way  to  change  the 
characteristics  of  the  AND  gate  in  the  half-adder  short  of 
issuing  a  DEFINE  statement  for  the  AND.  Note  that  this  will 
have  the  effect  of  specifying  parameters  for  all  AND  gates 
in  the  entire  circuit  whether  that  was  the  intended  effect 
or  not.  For  example,  to  model  skewing  in  a  sixteen-bit 
adder  it  is  most  useful  to  specify  four  different  types  of 
AND  gates  (one  for  the  AND  gate  in  each  four-bit  adder), 
substitute  these  user-defined  gates  for  the  ones  contained 
in  the  primitive  definition  and  observe  their  effects  on  the 
output . 

Thus"  was  born  the  USING  clause.  The  USING  keyword 
and  its  associated  parameter  list  preface  each  VOHL  circuit 
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line  where  such  a  substitution  is  desired.  In  the  four-bit 


adder  of  Figure  17,  the  designer  has  altered  the  previous 
design  to  specify  a  different  EXOR  and  AND  gate  from  the 
defaults  in  two  of  the  full-adders;  it  is  suspected  that 
skewing  might  occur  in  the  outputs  of  these  two  adders  and 
the  effects  of  such  skewing  need  to  be  determined.  (As 
before,  in  this  example  the  full  and  half  adders  are  assumed 
to  be  fully-defined  primitives.) 

When  the  compiler  is  invoked,  the  circuit  is  copied 
to  a  temporary  file  and  any  circuit  lines  with  USING  clauses 
are  delimited  by  special  keywords  (Figure  18).  The  user- 
defined  TYPES  are  saved  in  a  special  table,  as  are  the 
parameters  to  the  USING  clause.  The  level  of  the  first 
parameter  in  the  USING  clause  is  checked  against  the 
function  name  in  the  circuit  line;  if  the  function  name  is  a 
primitive,  and  further,  if  the  function  is  of  higher  level, 
the  clause  handler  issues  an  expansion  request.  Here  is 
revealed  the  greatest  power  of  the  USING  statement-- it  is 
possible  to  modify  existing  primitives  at  will,  and  the 
process  is  completely  transparent  to  the  user. 

This  amended  circuit  is  then  passed  to  the  original 
compiler  to  be  expanded  into  a  single  level  as  described 
previously;  however,  the  expanded  code  corresponding  to  a 
line  containing  a  USING  will  still  be  marked  by  the 
delimiters  (Figure  19).  Note  that  although  the  first  and 
third  lines  of  the  original  circuit,  each  containing  a  full 
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MODULE  :  ADDER4; 

INPUTS  :  AO,  A1 ,  A2 ,  A3,  BO,  B1 ,  B2 ,  B3 ,  CIO; 
OUTPUTS:  SO,  SI,  S2 ,  S3,  C03; 

TYPES  :  EXOR  :  EXOR1 ,  EXOR2 ; 

OR  :  OR1 ,  OR2 ; 

INTERNALS  :  COO,  C01 ,  C02; 

{ 


USING (NOEXP,  EXOR1 , 

ORl  ) 

:  SO, 

COO  =  FULLADD(  AO, 

BO  , 

CIO)  ; 

SI,  COI =FULLADD ( A1 , 

B1  , 

COO  )  ; 

USING (NOEXP,  EXOR2, 

OR2  ) 

:  S2  , 

C02=FULLADD( A2 , 

B2  , 

COI  )  ; 

S3,  C03=FULLADD( A3, 

B3  , 

CO  2 )  ; 

} 

DEFINE:  EXOR1 :  RISEDELAY ( 0 , 0 ) =2 , 

FALLDELA Y ( 0 , 0 ) =  4 ; 
EXOR2:  RISEDELAY ( 0 , 0 ) =3 ; 

FALLDELA Y( 0,0) =3; 
ORl  :  RISEDELAY (1 , 0 ) =2 ; 
OR2  :  RISEDELAY  (1  ,  0.)  =  3  ; 
INITIALIZE:  C00=0;  COl=0;  C02=0 ; 
PRINTOUT:  SO,  SI,  S2 ,  S3,  C03; 


Figure  17. 

The  Four-bit  Adder  With  USING 


adder,  have  been  expanded  into  the  low-level 
interconnections  composing  the  full  adder,  the  two  "lines" 
are  still  detectable  by  merely  sensing  the  delimiters. 

This  is,  of  course,  precisely  what  the  USING  handler 
does.  Once  the  "start"  delimiter  is  detected,  each  function 
name  encountered  is  compared  to  compared  to  the  list  of 
TYPES  made  earlier.  If  there  is  a  match,  the  parameter 
list  of  the  USING  clause  is  compared  to  the  user-defined 
TYPE.  If  one  of  these  also  matches,  the  user-defined 
function  thus  found  is  substituted  for  the  existing  one. 
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MODULE  :  ADDER4; 

INPUTS  :  AO,  A1 ,  A2 ,  A3,  BO,  B1 ,  B2 ,  B3,  CIO; 
OUTPUTS:  SO,  SI,  S2,  S3,  C03; 

TYPES  :  EXOR  :  EXOR1 ,  EXOR2 ; 

OR  :  OR1 ,  OR2 ; 

INTERNALS  :  COO,  COl ,  C02 ; 


{ 

SWAPLIN; 

50,  COO  =FULLADD ( AO , 
ENDSWAP; 

51,  COl =FULLADD ( A1  , 
SWAPLIN; 

52,  C02=FULLADD( A2 , 
ENDSWAP; 

53,  C03=FULLADD( A3 , 

} 


BO  , 

CIO)  ; 

B1  , 

COO  )  ; 

B2  , 

COl  )  ; 

B3  , 

C02 )  ; 

DEFINE:  EXOR1 :  RISEDELAY ( 0 , 0 ) =2 , 

FALLDELAY ( 0 , 0 ) =4 ; 
EXOR2:  RISEDELAY (0,0) =3; 

FALLDELAY (0,0) =3; 
OR1  :  RISEDELAY (1 , 0 ) =2 ; 
OR2  :  RISEDELAY (1 , 0 ) =3 ; 
INITIALIZE:  C00=0;  CO1=0;  C02=0; 
PRINTOUT:  SO,  SI,  S2,  S3,  C03; 

MODULE  :  FULLADD; 

INPUTS  :  A,.  B,  CIN; 

OUTPUTS  :  S,  CO; 

TYPES  :  INTERNALS:  X,  Y,  Z; 

{ 

X,  Y =HALFADD ( A ,  B); 

S,  Z=HALFADD ( X ,  CIN); 

CO=OR( Z ,  Y); 

} 

MODULE  :  HALFADD; 

INPUTS  :  A,  B; 

OUTPUTS:  S,  CO; 

TYPES:  ; 

{ 

S=EXOR( A,  B); 

C0=AND ( A , B ) ; 

} 


Figure  18.  The  Adder 
After  Delimiters  Installed 
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MODULE  :  ADDER4 ; 

INPUTS  :  AO,  A1 ,  A2 ,  A3,  BO,  B1 ,  B2 ,  B3,  CIO; 
OUTPUTS:  SO,  SI,  S2 ,  S3,  C03 ; 

TYPES:  EXOR:  EXOR1 ,  EXOR2 ; 

OR  :  OR1 ,  OR2 ; 

INTERNALS:  COO,  C01 ,  C02  ; 

INTERNALS:  XO ,  XI,  X2 ,  X3 ,  YO,  Y1 ,  Y2,  Y3; 

{ 

SWAPLIN; 

XO  =  EXOR ( AO ,  BO )  ; 

Y0=AND ( AO ,  BO); 

SO=EXOR ( XO ,  CIO); 

Z0=AND ( XO ,  CIO); 

COO=OR( ZO ,  YO); 

ENDSWAP ; 

XI =EXOR ( A1 ,  B1 ) ; 

Y1 =AND ( A1 ,  31 ) ; 

SI =EXOR ( XI ,  COO ) ; 

Z1 =AND(X1 ,  COO ) ; 

C01 =OR ( Z 1 ,  Y 1 ) ; 

SWAPLIN; 

X2  =EXOR ( A2 ,  B2 ) ; 

Y2=AND(A2,  B2); 

S2=EXOR( X2 ,  C01 ) ; 

Z2=AND( X2 ,  C01 ) ; 

C02=0R ( Z2 ,  Y2 ) ; 

ENDSWAP ; 

X3=EXOR ( A3 ,  B3 ) ; 

Y3=AND(A3,  B3); 

S  3  =  EXOR ( X3 ,  C02 ) ; 

Z3=AND( X3 ,  C02 ) ; 

C03=0R( Z3 ,  Y3 ) ; 

} 

DEFINE:  EXOR1 :  RISEDELAY ( 0 , 0 ) =2 , 

FALLDELAY ( 0 , 0 ) =4 ; 

EXOR2 :  RISEDELAY ( 0 , 0 ) =3 ; 

FALLDELAY (0,0) =3; 

OR1  :  RISEDELAY ( 1 ,0) =2; 

OR2  :  RISEDELAY (1 , 0 ) =3 ; 

INITIALIZE:  C00=0;  CO1=0;  C02=0; 

PRINTOUT:  SO,  Si,  S2,  S3,  C03; 


Figure  19.  The  Adder  After  Expansion 
and  Prior  to  Substitution 
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The  process  then  repeats  for  each  circuit  line  until  the 
"end"  delimiter  is  encountered. 

Returning  to  the  example,  the  designer  wishes  to 
model  the  effects  of  nonuniformities  in  the  EXOR  and  OR 
gates  in  two  of  the  half  adders.  To  begin,  two  types  of 
EXOR  and  two  types  of  OR  are  specified  in  the  TYPES  line, 
with  the  parameters  to  be  perturbed  set  in  the  DEFINE  line. 
Since  the  EXOR  is  the  "deepest"  level  that  the  user  wishes 
to  look,  it  is  the  first  parameter  to  the  USING  clause. 

The  first  variation  on  the  EXOR  and  the  OR  will  go 
into  the  first  full  adder.  Thus,  the  syntax  for  the  first 
using  clause  and  statement  line  is: 

USING ( EX0R1 ,  0R1 ) :  SO,  CIO  =  FULLADD ( AO ,  BO,  CIO); 
Likewise,  the  form  of  the  second  statement  line  is: 

USING ( EX0R2 ,  0R2 ) :  S2,  C01  =  FULLADD ( A2 ,  B2 ,  COO); 

When  this  VOHL  circuit  is  passed  to  the  compiler, 
the  USING  keyword  causes  control  to  be  passed  to  the  clause 
handler.  As  the  handler  senses  the  first  group  of  candidate 
lines  for  substitution,  the  first  EXOR  in  the  expanded 
circuit  of  Figure  19  is  compared  against  the  type  list. 
There  is  a  match  since  an  EXOR  has  been  defined.  The  two 
types  of  EXOR  are  then  compared  to  the  USING  parameter  list, 
generating  a  match  on  EX0R1 .  Since  a  both  the  proper 
function  type  and  the  proper  parameter  have  been  found. 
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EX0R1  is  then  substituted  for  EXOR  in  the  VOHL  circuit 
description.  There  is  no  match  with  the  AND  in  the  next 
circuit  line,  as  no  ANDs  have  been  defined.  The  EXOR  in  the 
third  line  causes  a  repeat  of  the  above  sequence,  resulting 
in  another  EX0R1  substitution.  Likewise,  the  OR  on  the 
fifth  line  generates  a  match  in  the  type  list  and  OR1 
matches  the  other  parameter  to  the  USING  clause,  so  0R1  is 
substituted  for  OR  in  the  circuit.  After  the  OR,  ENDSWAP 
tells  the  handler  to  ignore  the  next  several  lines  until  the 
process  begins  again  on  the  SWAPLIN  keyword.  The  handler 
terminates  upon  sensing  the  closing  brace  which  marks  the 
end  of  the  circuit. 

After  the  process  is  complete,  the  circuit  will 
appear  as  in  Figure  20;  it  is  this  version  that  will 
actually  be  compiled  for  simulation.  Note  that  there  are 
now  three  types  of  EXOR  and  three  types  of  OR  in  the  VOHL 
circuit,  all  with  different  parameters.  Further,  it  was  not 
necessary  to  build  three  different  types  of  half-adder,  in 
whose  descriptions  the  substitutions  were  actually 
performed;  rather,  it  is  only  necessary  to  develop  one 
submodule  and  change  its  components  with  the  USING  clause. 
One  may  then  quickly  observe  that  this  feature  adds  a 
significant  degree  of  flexibility  and  power  to  the  VOHL 
description  language. 

Of  course,  the  addition  routines  operate 
concurrently  with  module  substitution;  however,  the  original 
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MODULE  :  ADDER4; 

INPUTS  :  AO,  A1  ,  A2,  A3,  BO,  B1  ,  B2,  B3,  CIO; 
OUTPUTS:  SO,  SI,  S2 ,  S3,  C03 ; 

TYPES:  EXOR:  EXOR1 ,  EXOR2 ; 

OR  :  OR1 ,  OR2 ; 

INTERNALS:  COO,  C01 ,  C02 ; 

INTERNALS:  XO ,  XI,  X2 ,  X3,  YO ,  Y1 ,  Y2,  Y3 

{ 


X0=EXOR1 (AO 

,  BO)  ; 

Y0=AND ( AO , 

BO)  ; 

SO=EXOR1 ( XO 

,  CIO); 

Z0=AND ( XO , 

CIO)  ; 

COO  =OR1  ( ZO , 

YO)  ; 

XI =EXOR ( A1 , 

B1  )  ; 

Y1  = AND ( A1  , 

B1  )  ; 

S 1 =EXOR ( XI , 

COO) ; 

Z1 =AND ( XI , 

COO  )  ; 

C01 =OR ( Z1 , 

Y 1  )  ; 

X2=EXOR2( A2 

,  B2)  ; 

Y2=AND(A2, 

B2)  ; 

S2=EXOR2(X2 

,  C01 )  ; 

Z2=AND ( X2 , 

C01  )  ; 

C02=0R2 ( Z2 , 

Y2 )  ; 

X3=EXOR( A3 , 

B3)  ; 

Y3=AND ( A3 , 

B3 )  ; 

S3=EXOR(X3, 

C02 )  ; 

Z  3=AND ( X3 , 

C02 )  ; 

C03=0R( Z  3 , 

Y3 )  ; 

} 

DEFINE:  EXOR1 :  RISEDELAY ( 0 , 0 ) =2 , 

FALLDELAY ( 0 , 0 ) =  4 ; 
EXOR2 :  RISEDELAY (0,0) =3; 

FALLDELAY (0,0) =3; 
OR1  :  RISEDELAY (1 , 0 ) =2 ; 
OR2  :  RISEDELAY ( 1  , 0  )  =3  ; 
INITIALIZE:  C00=0;  CO1=0;  C02=0; 
PRINTOUT:  SO,  SI,  S2,  S3,  C03; 


Figure  20.  The  Adder 
After  Substitution 
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(e.g.,  as  if  the  USING  were  not  present)  VOHL  circuit  is  the 
one  that  will  be  saved  as  a  library  primitive. 

2 .  Addition  Without  Compilation 

It  is  occasionally  useful,  particularly  in  a 
laboratory  setting,  to  add  a  circuit  or  group  of  circuits  to 
the  cell  library  without  compiling  or  simulating  them.  The 
user's  prime  interest  here  is  in  building  up  the  library  or 
perhaps  customizing  it  to  a  particular  purpose.  To 
accomodate  this,  the  precompiler,  which  senses  the  addition 
keys,  was  modified  slightly  to  check  for  the  absence  of 
simulation  control  specifications  when  the  first  circuit 
module  is  preceded  by  an  addition  keyword.  If  this  happens, 
compilation  is  discontinued  and  control  passes  immediately 
to  the  library  addition  routines.  Also,  since  more  than  one 
module  may  be  added  at -a  time,  this  technique  may  be  used  to 
quickly  add  large  numbers  of  circuits  to  the  primitive 
library . 

Consider  the  circuit  of  Figure  21 .  The  ADSTRUC 
keywords  before  each  module  indicate  to  the  compiler  that 
both  the  RSCELL  and  the  JK  flip-flop  are  to  be  added  to  the 
VOHL  structure  library.  The  ADSTRUC  before  the  first  module 
(RSCELL  in  the  example)  causes  a  flag  to  be  set;  this  flag 
is  tested  when  the  second  ADSTRUC  is  encountered  instead  of 
the  DEFINE  that  would  normally  occur  were  the  simulation 
specs  present.  Since  the  flag  is  set,  the  compiler 
concludes  that  no  compilation  is  necessary,  enters  the 
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structure-only  addition  routine  and  inserts  both  modules 
into  the  appropriate  libraries  as  discussed  in  Chapter  4. 
Note  that  the  RSCELL  must  be  added  prior  to  the  JKFF;  this 
is  so  that  the  primitive  levels  may  be  calculated  properly. 
The  rules  for  module  addition  discussed  in  Chapter  4  are 
equally  valid  here--new  modules  must  be  built  out  of  only 
previously-entered  modules. 


ADSTRUC  ; 

MODULE  :  RSCELL  ; 

INPUTS  :  S,  R  ; 

OUTPUTS:  Q,  QC  ? 

1YPES  :  ; 

{ 

Q  =  NAND ( S ,  QC) ; 

QC  =  NAND( R,  Q) ; 

} 

ADSTRUC  ; 

MODULE  :  JKFF  ? 

INPUTS  :  J,  K,  CLK ; 

OUTPUTS:  Q,  QBAR; 

TYPES  :  INTERNALS  :  SI ,  R1 ; 

{ 

SI  =  NANDTHR ( QBAR ,  J,  CLK); 
Rl  =  NANDTHR (CLK,  Q,  K); 

Q,  QBAR  =  RSCELL (SI,  Rl ) ; 

} 

END  ; 


Figure  21 .  The  JK  Flip-Flop 
Addition  Without  Compilation 
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V.  CONCLUSIONS  AND  FUTURE  RESEARCH 


A.  WAYPOINTS 

It  is  perhaps  characteristic  of  projects  of  this 
magnitude  that  they  are  never  quite  finished,  no  matter  how 
far  the  boundaries  have  been  pressed  out  nor  how  many 
artisans  have  had  a  hand  in  them.  So  it  is  with  MultiSim. 
The  extensions  to  MultiSim  described  in  the  preceding 
chapters  bring  it  to  the  verge  of  the  student  laboratory  and 
even  the  marketplace,  but  there  is  yet  work  to  be  done: 

*  The  block-level  and  "complete"  (block  and  structural 
together)  additions  must  be  completed  and  installed. 

*  A  way  must  be  found  to  circumvent  the  requirement 
for  recompiling  components  of  MultiSim,  or  such 
recompilations  must  at  the  very  least  be  made 
transparent  to  the  user. 

*  An  interface  must  be  devised  and  constructed  to 

allow  MultiSim  to  be  used  with  the  EE  Designer 
schematic  drawing  and  capture  program. 

Specifically,  this  includes  a  DOS  shell  to 
accomodate  both  programs  and  their  auxiliary  files, 
a  netlist  translator  to  convert  EE  Designer  netlists 
into  VOHL,  and  allowing  EE  Designer  to  import  the 
simulation  results  from  MultiSim' s  timing  wheel. 

1 .  Block-level  Addition 


As  may  be  observed  from  Chapter  4,  adding  the 
structural  representation  of  a  VOHL  circuit  to  the  primitive 
library  is  a  reasonably  straightforward  process.  The  VOHL 
code  to  be  added  is  extracted  from  the  circuit  being 
modeled;  the  inputs  and  outputs  are  counted;  finally  these 
along  with  the  module  name  and  a  flag  marking  the  new  module 
as  "Structure-only"  are  stored  in  PRIMITIV.DAT. 
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Block-only  additions  are  somewhat  more  complicated 
as  they  have  more  to  do  with  the  simulator  than  the 
compiler.  As  discussed  in  Chapter  3,  the  block-level 
behavioral  descriptions  for  each  primitive  are  C-language 
procedures  contained  in  the  auxiliary  file  BLOCK;  this  file, 
along  with  the  declarations  in  FADDR  (Figure  22)  and  pointer 
initializations  in  FTYPE  (Figure  23)  are  included  into  the 
simulator  when  the  simulator  is  compiled  on  the  host 
machine.  In  the  present  version  of  the  simulator,  adding  a 
block-level  primitive  requires  the  following  steps: 

*  adding  the  new  primitive's  function  declaration  to 
FTYPE 

*  adding  the  pointer  initialization  to  FADDR  and 
incrementing  the  primitive  count  also  contained 
there 

*  determining  the  propagation  delays  from  each  input 
of  the  new  circuit  to  each  output,  then  entering 
these  values  into  the  block  delay  data  file  BLDEL. 

*  appending  the  new  block-level  C  code  to  BLOCK,  then 
recompiling  the  entire  timing  wheel  simulator. 

For  instance,  to  add  the  half  adder  of  previous 
discussions  to  the  block  library,  the  line 

int  HALFADDO; 

must  be  added  to  FTYPE.  Likewise,  a  pointer  to  the  new 
function  contained  in  the  array  pnfn[ ]  is  initialized  with 
the  statement 

pnf n[ 1 5 ]  =  HALFADD; 
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int  NAND( ) ; 
int  NOR ( ) ; 
int  ANDTHRE ( ) ; 
int  ORTHREE ( ) ; 
int  NANDTHR ( ) ; 
int'  SRBLOCK (  )  ; 
int  RETDBLO( ) ; 
int  ANDFOUR ( ) ; 
int  ORFOUR ( ) ; 
int  EXOR ( ) ; 


Figure  22.  The  Auxiliary  File  FTYPE 


pnf n [ 3 ]  = 
pnfn[4]  = 
pnfn[6]  = 
pnfn[7]  = 
pnfn[8]  = 
pnfn[9]  = 
pnf n[ 10]= 
pnf n [ 1 1 ]= 
pnf n[ 12]= 
pnf n[ 13]= 
pnf n [ 14]= 
pncnt  =  1 


NAND ; 
NOR; 
EXOR; 
ANDTHRE; 
NANDTHR ; 
SRBLOCK ; 
RETDBLO; 
ANDFOUR ; 
NANDFOU ; 
ORTHREE; 
ORFOUR; 
5; 


Figure  23.  The  Auxiliary  File  FADDR 
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which  must  be  added  to  FADDR.  The  last  line  of  FADDR  is 


changed  to  read 


pncnt  =  16; 

Lastly,  the  C-language  code  for  the  half  adder  is  appended 
to  BLOCK  after  which  the  timing  wheel  is  compiled  using  the 
appropriate  commands  (LC  and  LINK  on  the  IBM  PC/AT,  and  cc 
on  the  VAX) . 

This  procedure  is  not  amenable  to  easy  installation 
of  new  primitives.  What  is  proposed  is  a  method  similar  to 
that  used  on  the  compiler: 

*  FTYPE  will  be  extended  to  declare  an  additional  set 
of  primitives  (the  VOHL  compiler  uses  an  additional 
forty).  These  will  be  internal  names  transparent  to 
the  user.  The  new  FTYPE,  which  will  remain  an 
^include  file,  is  shown  in  Figure  24. 

*  FADDR  will  be  made  into  an  external  procedure, 
independent  of  the  timing  wheel.  The  additional 
primitive  declarations  will  be  assigned  NULL 
pointers  until  an  actual  description  is  added.  When 
this  occurs,  the  system  name  of  the  new  primitive 
will  replace  the  NULL  (Figure  25). 

*  Likewise,  the  procedures  that  compose  the  BLOCK  file 
will  all  be  made  external;  new  primitive  C-language 
block  descriptions  will  still  be  placed  in  this 
f  ile . 

The  advantage  to  converting  the  ^include  files  into 
external  procedures  is  that  only  the  external  procedures 
need  to  be  recompiled  when  they  are  altered.  Since  the  two 
files  concerned  are  much  smaller  than  the  timing 
wheel  itself,  compilation  will  proceed  much  more  quickly. 
In  addition,  the  MSDOS  linker  teamed  with  a  hard  disk  works 
very  swiftly  as  well;  the  total  time  to  recompile  and  relink 
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int  NAND ( ) ; 
int  NOR ( ) ; 
int  ANDTHRE ( )  ; 
int  ORTHREE ( ) ; 
int  NANDTHR (  )  ; 
int  SRBLOCK ( ) ; 
int  RETDBLO ( ) ; 
int  ANDFOUR ( ) ; 
int  ORFOUR ( ) ; 
int  EXOR ( ) ; 
int  USER1 ( ) ; 
int  USER2 ( ) ; 
int  USER3 ( ) ; 


int  USERn ( ) ; 


Figure  24.  The ■ Auxiliary  File  FTYPE  Modified 
for  New  Primitive  Declarations 


pnfn[3]  = 
pnfn[4]  = 
pnfn[6]  = 
pnfn[7]  = 
pnfn[8]  = 
pnfn[9]  = 
pnf n [ 10]= 
pnf n[ 11]= 
pnf n[ 12]= 
pnf n[ 13]= 
pnf n[ 14]= 
pnfn[ 15]= 
pnf n[ 16]= 
pnf n[ 17]= 
pnf n[ 18]= 


NAND; 
NOR; 
EXOR; 
ANDTHRE; 
NANDTHR ; 
SRBLOCK ; 
RETDBLO; 
ANDFOUR ; 
NANDFOU ; 
ORTHREE; 
ORFOUR ; 
USER1 ; 
USER2 ; 
NULL; 
NULL; 


NULL; 


pnfn[ 55] = 
pncnt  =  17; 


Figure  25.  The  External  Procedure  File  FADDR  With 
Two  User-Defined  Primitives  Installed 
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the  new  BLOCK  and  FADDR  files  will  typically  be  less  than 
ninety  seconds.  In  fact,  a  shell  can  be  built  (or  added  to 
the  existing  one)  specifically  to  handle  block- level 
additions--in  this  way  the  inconvenience  to  the  user  will  be 
minimized  since  the  procedure  is  automatic. 

The  operation  of  the  new  mechanism  is  as  follows: 

*  In  addition  to  the  VOHL  circuit  to  be  modeled,  the 
user  places  block-level  code  for  the  primitive  to  be 
added  into  a  separate  ASCII  text  file.  When  the 
compiler  senses  an  ADBLOCK  keyword  in  the  VOHL 
circuit,  this  text  file  will  be  entered.  Using  the 
two  name  fields  of  PRIMITIV.DAT,  the  compiler 
matches  the  user's  name  for  the  new  primitive  to  its 
system  (USERnn)  name  and  passes  control  to  the 
block-level  addition  routine. 

*  The  addition  routine  enters  FADDR  and  adds  the 

pnf n [ primitive  number]  =  USERnn; 

line,  as  well  as  updates  the  primitive  count  pncnt. 

It  then  adds  the  user-provided  block  code  to  BLOCK, 
substituting  the  system  name  for  the  user's  name 
(necessary  since  although  procedures  must  be 
declared  in  advance,  the  routine  obviously  has  no 
information  as  to  what  the  user  may  choose  to  name  a 
primitive ) . 

*  The  block  delays  are  tabulated  and  saved  into  BLDEL. 

*  A  flag  is  set,  which  upon  exiting  the  VOHL  compiler 
and  simulator  will  invoke  the  Lattice  C  compiler. 
FADDR  and  BLOCK  are  recompiled  and  relinked  with  the 
timing  wheel,  completing  the  installation  of  the 
block-level  primitive. 

The  most  difficult  part  of  the  block-level  addition 
is  the  calculation  of  block  delays.  Dr.  Mahmood  has 
provided  an  algorithm  [Ref.  6,  pp.  108-126],  but 
unfortunately  time  expired  before  it  could  be  implemented  as 
part  of  the  work  this  thesis  describes.  The  remainder  of 
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the  process  is  actually  quite  simple  and  in  many  ways  is  the 
same  as  for  the  structure-only  addition. 

Finally,  "complete"  addition  combines  the  structural 
and  block-level  addition  procedures  to  install  a  completely- 
described  primitive. 

2 .  EE  Designer  Interface 

The  EE  Designer  commercial  CAD  program  is  presently 
available  for  the  PC/AT' s  in  the  Computer  Design  laboratory. 
As  EE  Designer  produces  netlists  it  is  possible  to  use  this 
program  for  schematic  drawing  and  capture,  subsequently 
producing  a  circuit  netlist  to  be  passed  to  MultiSim  for 
compilation  and  simulation  (substituting  MultiSim' s 
extremely  fast  simulator  for  EE  Designer's  slow  one). 
However,  since  EE  Designer  produces  its  netlists  in  terms  of 
standard  part  numbers  (i.e.,  7400  for  a  quad  two-input  NAND) 
it  is  necessary  to  translate  these  netlists  into  VOHL.  This 
also  should  be  a  relatively  straightforward  process  since 
the  VOHL  primitives  correspond  to  standard  parts.  The  major 
concern  is  the  efficiency  and  speed  of  the  translation--if 
the  translation  algorithm  is  sloppy,  much  of  the  speed 
advantage  of  MultiSim  will  be  lost.  Consequently, 
considerable  effort  and  care  must  be  devoted  to  this 
algorithm.  The  reward  for  smooth  translation  is 
simultaneously  obtaining  the  graphics  capabilities  of  EE 
Designer  while  enjoying  the  speed  of  MultiSim 's  simulator. 
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B.  CONCLUSION  AND  CLOSING  REMARKS 


MultiSim  on  a  desktop  microcomputer  brings  considerable 
power  to  the  circuit  designer;  further,  it  does  so  at  a 
price  that  was  heretofore  unattainable.  IBM  PC-type 
machines  are  virtually  standard  equipment  in  most  offices, 
and  AT-class  machines  are  rapidly  becoming  as  common--the 
ability  to  quickly  simulate  large  circuits  on  such  machines 
offers  considerable  cost  savings  to  both  schools  and 
corporations.  Perhaps  the  greatest  benefit  is  to  schools, 
since  their  budgets  are  the  tightest  of  the  users  of  CAD 
equipment  and  the  circuits  they  simulate  generally  do  not 
require  the  computing  muscle  of  a  VAX-class  machine.  To  be 
sure,  MultiSim  does  have  its  limits--depending  on  the  memory 
available,  a  maximum  of  1500-2000  elements  can  be  modeled 
(several  times  this  amount  on  MC680x0-based  machines  such  as 
the  Commodore  Amiga),  but  there  are  numerous  applications 
where  this  is  perfectly  adequate. 

MultiSim  offers  an  impressive  mix  of  performance, 
particularly  in  the  speed  of  its  event-driven  simulator, 
versus  price  of  its  typical  host  machines  ($6000  and  less 
for  IBM  PC/AT-class  computers).  The  enhancements  to 
MultiSim  described  in  this  thesis  make  it  a  powerful, 
flexible  tool  for  VLSI  circuit  design.  For  both  designer 
and  educator,  it  is  worthy  of  careful  consideration. 
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APPENDIX  A. 

QUICK  REFERENCE  CARDS 


1 .  VOHL 
Keywords 
MODULE 


INPUTS 


OUTPUTS 


TYPES 


QUICK  REFERENCE  CARD 


and  their  uses: 

The  MODULE  keyword  identifies  the  beginning 
of  a  new  circuit  or  subcircuit.  The  name 
of  the  module  immediately  follows  the 
MODULE  keyword  and  a  colon  separates  the 
two.  A  semicolon  follows  the  module  name. 

MODULE  :  HALF ADD  ; 


This  keyword  identifies  the  inputs  to  the 
circuit.  Inputs  are  listed  after  the 
INPUTS  keyword  and  separated  by  commas; 
white  spaces  are  optional.  The  last  input 
is  followed  by  a  semicolon.  If  there  are 
more  inputs  than  will  fit  on  a  single  line 
multiple  lines  may  be  used-- terminate  the 
last  input  in  each  line  with  a  comma 
instead  of  a  semicolon.  As  before,  the 
final  input  should  be  followed  by  the 
semicolon . 

INPUTS  :  A,  B  ; 


Likewise,  this  keyword  identifies  the 
outputs  from  the  circuit  and  are  listed 
after  OUTPUTS,  separated  by  commas.  As 
with  INPUTS,  if  more  than  one  line  is 
needed  simply  terminate  the  last  keyword  in 
the  line  with  a  comma. 

OUTPUTS:  S,  CO  ; 


The  TYPES  statement  is  used  for  two 
purposes:  First,  it  allows  the  user  to 
specify  variations  of  the  standard 
primitives;  and  second,  it  is  used  for  the 
creation  of  internal  scratchpad  variables. 
If,  for  instance,  it  is  desired  to 
construct  a  circuit  out  of  a  different  NAND 
gate  than  the  one  available  in  the  library, 
the  user  issues  the  line: 

TYPES  :  NAND  :  NANDI  ; 
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DEFINE 


and  may  then  construct  a  circuit  out  of 
NANDI s.  This  use  of  the  TYPES  keyword  also 
supports  the  USING  keyword  discussed  below 
(where  it  is  desired  to  produce  multiple 
variations  of  previously-defined  library 
primitives).  To  create  scratchpad 

variables,  the  TYPES  statement  is  followed 
by  the  INTERNALS  keyword;  the  scratchpad 
variables  follow  INTERNALS. 

TYPES  :  INTERNALS  :  DUMMY 1 ,  DUMMY 2 ,  ..; 

Note:  if  the  first  form  of  the 

TYPES  line  has  already  been  used  and  it  is 
also  desired  to  declare  INTERNALS,  the  form 
is  as  follows: 

TYPES  :  NAND  :  NANDI  ; 

INTERNALS  :  DUMMY 1 ,  DUMMY 2 ,  ..; 

(The  INTERNALS  doesn't  need  a  second  TYPES 
keyword. ) 


The  VOHL  circuit  is  composed  of  individual 
circuit  lines  which  resemble  algebraic 
statements.  A  circuit  line  is  composed  of 
an  input  list,  a  function  name,  and  an 
output  list.  The  form  is: 

outputs  =  function ( inputs )  ; 

For  example,  a  statement  line  using  the 
HALFADDer  would  appear  as: 

SO,  CARRYO  =  HALFADD (AO,  BO)  ; 

The  circuit  body  is  enclosed  by  braces  so 
that  the  completed  circuit  appears  as: 

{  (open  brace=start  of  circuit) 

theseoutputs  =  function ( theseinputs )  ; 

thoseoutputs  =  function( thoseinputs )  ; 

otheroutputs  =  function( otherinputs )  ; 


}  (close  brace=end  of  circuit) 


This  is  used  to  specify  particular 
parameters  for  a  primitive.  The  user  may 
specify  such  parameters  as  RISEDELAY, 
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DEFINE  : 


EXPAND 


INITIAL 


PRINTOUT 


END 


F ALLDELAY,  FANOUT,  and  TECHNOLOGY.  The 
RISEDELAY  and  FALLDELAY  keywords  require 
the  number  of  the  input  and  the  number  of 
the  output  for  which  the  parameter  applies. 

It  is  not  necessary  to  specify  all  of  the 
parameters  when  using  DEFINE,  merely  the 
ones  it  is  desired  to  change. 

NAND  :  RISEDELAY ( 0 , 0 ) =3 ,  (1st  input- > 1st  output) 
FALLDELAY (1 , 0 ) =2 ,  (2nd  input- > 1st  output) 
FANOUT=  1 0 , 

TECHNOLOGY=TTL ; 


This  keyword  is  used  when  a  greater  level 
of  detail  is  required  than  the  block-level 
description.  The  primitive  to  be  expanded 
follows  the  EXPAND,  which  is  in  turn 
followed  by  the  level  the  expansion  is  to 
,e  carried  to.  If  desired,  definition 
parameters  (though  without  the  DEFINE)  may 
be  placed  after  the  primitive  the  expansion 
will  be  carried  to.  If  just  the  expansion 
is  desired,  the  statement  appears  as: 

EXPAND  :  HALFADD  :  EXOR; 

If  the  user  v/ishes  to  specify  parameters 
for  the  EXOR,  the  syntax  will  be: 

EXPAND  :  HALFADD  :  EXOR  :  RISEDELAY ( 0 , 0 ) =3 , 

etc.  ; 


The  INITIAL  (or  INITIALIZE)  keyword  is  used 
to  create  the  initial  conditions  for  the 
simulation.  Following  the  INITIAL  keyword, 
the  variables  are  listed  along  with  the 
value  (0,  1  or  2)  that  is  to  be  assigned  to 
them  as  the  simulation  begins. 

INITIAL:  A0  =  0 ,  A1 =1  ,  B0  =  0,  .  .  ; 


Finally,  the  list  of  variables  the  user 
wishes  to  observe  are  indicated  here, 
separated  by  commas. 

PRINTOUT:  X0,  XI,  X2,  X3,  .  .  ; 


This  is  the  very  last  line  in  the  VOHL 
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USING 


ADSTRUC 


circuit,  and  occurs  after  all  modules  and 
submodules.  A  semicolon  follows  the  END 
keyword . 


The  USING  clause  appears  in  the  circuit 
description  prior  to  the  output  list  ar.d 
contains  a  list  of  primitives  to  be 
substituted  for  those  normally  occuring. 
Each  element  in  the  USING  parameter  list 
should  appear  in  the  TYPES  declarations, 
and  it  may  also  appear  in  the  DEFINE 
statement  if  the  user  wishes  to  modify  any 
parameters.  Whereas  the  EXPAND  and  DEFINE 
statements  together  allow  only  one  version 
of  a  primitive,  USING  allows  as  many 
different  versions  as  the  user  requires. 

For  instance,  consider  a  circuit  with  three 
half-adders;  for  whatever  reason  it  is 
necessary  to  provide  for  three  different 
half-adders  composed  of  different  types  of 
EXOR  gates.  With  EXPAND  and  DEFINE,  this 
would  not  be  possible  unless  the  user  built 
three  half-adders  with  the  different  EXORs . 

If  the  half-adder  is  a  system  primitive, 
all  that  is  necessary  is: 

TYPES  :  EXOR  :  EX0R1 ,  EX0R2 ,  EX0R3  ; 

{ 

# 

• 

USING (EX0R1 ) :  SI,  CARRY 1  =  HALFADD (A1 ,  31); 
USING ( EX0R2 ) :  S2,  CARRY 2  =  HALFADD (A2,  B 
USING (EX0R3) :  S3,  CARRY 3  =  HALFADD (A3,  B 


} 

DEFINE:  EX0R1 :  ( parameters ) ; 

EX0R2:  (parameters); 
EX0R3:  (parameters); 


Finally,  this  keyword  is  used  to  add  a 
module  into  the  primitive  structural 
library.  It  is  followed  by  a  semicolon  and 
precedes  the  MODULE  line  of  the  circuit  to 
be  added . 
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lo  ro 


Notes : 

*  It  is  not  necessary  to  DEFINE  parameters, 
however,  the  keyword  must  appear.  In  no 
parameters  are  to  be  DEFINEd,  issue  a: 

DEFINE  :  ; 

The  EXPAND  keyword  does  not  appear  at  all  if  it 
is  not  needed. 

*  With  the  present  version  of  the  code  generator, 
it  is  necessary  to  INITIALIZE  at  least  one 
variable.  If  this  is  not  done  the  compiler  gets 
angry. 

*  Simulation  control  specifications  (DEFINE, 

INITIALIZE,  PRINTOUT,  etc.)  must  only  appear 
after  the  first  module.  Simulation 

specifications  on  submodules  will  be  disregarded 
and  will  in  fact  cause  a  compilation  error. 

*  If  all  that  is  desired  is  to  add  a  module  to  the 
structural  library,  simply  issue  an  ADSTRUC;  on 
the  line  prior  to  the  MODULE  line  and  do  not 
include  simulation  specifications. 
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2 .  DOS  SHELL  QUICK  REFERENCE  CARD 


The  MultiSim  package  is  located  in  the  \SIML 
directory  of  each  IBM  PC/AT  in  the  Computer  Design 
Laboratory.  To  enter  this  directory,  type 

cd  \siml 

at  the  MSDOS  prompt.  Once  there,  type 
path2 

to  set  up  the  MSDOS  directory  search  paths  for  the 
various  support  programs.  The  KEDIT  editor  may  be 
used  to  build  VOHL  circuits  for  modeling.  The 
circuit  may  possess  a  name  of  up  to  eight  characters 
‘long,  and  an  extension  should  not  be  used  for  the 
circuit  to  be  modeled.  It  is  good  practice  to  save  a 
backup  copy  of  the  circuit;  a  convenient  method  is  to 
use  the  same  name  but  with  a  . ckt  extension  added. 
It  will  also  be  necessary  to  produce  a  file  of  input 
data  for  the  circuit;  KEDIT  may  be  used  for  this 
purpose  also.  The  input  data  should  be  of  the  same 
name  as  the  circuit,  but  with  a  . in  extension.  For 
example,  the  four  bit  adder  cn  the  PC/AT  is  called 
add 4 ,  with  a  backup  version  in  add4 . ckt  and  inputs  in 
add4 . in. 

The  MultiSim  package  is  invoked  with  one  of 
two  commands:  MODEL,  which  is  the  original, 
unenhanced  MultiSim;  or  M0DEL2 ,  which  includes  the 
features  described  in  the  thesis.  For  all  but  those 
concerned  with  installing  further  features  into 
MultiSim,  MODEL  may  be  disregarded  (though  its 
operation  is  identical  with  M0DEL2 ) . 

There  are  three  options  with  M0DEL2: 

C:  Compile  but  do  not  simulate.  This  is  used  to 

check  for  VOHL  syntax  errors.  If  the 
compilation  is  successful  the  results  will  be 
saved  to  the  hard  disk.  No  circuit  input  file 
is  necessary  for  compilation-only. 

S:  Go  directly  to  simulation.  The  circuit  must 

have  been  previously  compiled  and  an  input  file 
must  be  available. 

E:  End-to-end.  M0DEL2  will  call  the  compiler, 
then  immediately  enter  the  simulator.  As  with 
the  Simulate  case,  an  input  file  must  be 
available . 
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The  syntax  for  the  M0DEL2  command  line  is: 

model2  <circuitname>  <option> 

where  <circuitname>  is  the  name  of  the  file  to  be 
operated  on  and  <option>  is  either  E,  S,  or  C.  Thus, 
to  both  compile  and  simulate  the  four-bit  adder  in  a 
single  operation,  the  command  is: 

model2  add4  e 

When  a  simulation  is  performed  M0DEL2  will  display 
the  results  on  the  screen,  then  save  them  to  the  hard 
disk  in  the  file  <circuitname> . out ;  thus  the  results 
of  the  four-bit  adder  simulation  will  be  in  add4.out. 


84 


3 .  UNIX  VAX  QUICK  REFERENCE  CARD 


All  of  the  enhancements  installed  into  the 
microcomputer  version  of  MultiSim  are  also  available 
in  the  VAX  version,  but  there  is  no  shell  on  the  VAX 
corresponding  to  M0DEL2 .  Consequently,  the  compiler 
and  simulator  must  be  invoked  directly  from  the  UNIX 
prompt.  Because  of  this,  the  MSDOS  naming 
conventions  do  not  apply--circuits  and  data  input 
files  may  have  arbitrary  and  unrelated  names  (it  is 
still  good  practice,  however,  to  maintain  the 
convention  from  MSDOS  to  assist  in  keeping  track  of 
files )  . 

The  VOHL  compiler  is  contained  in  the 
executable  file  cadd  while  the  simulator  is  in  the 
executable  file  sim.  To  use  the  compiler,  type 

cadd  < filename > 

where  <filename>  contains  the  circuit  to  be  compiled 
for  simulation.  To  enter  the  simulator,  type 

sim  <input  file>  <output  file> 

where  <input  file>  contains  the  input  data  for  the 
circuit  and  <output  file>  is  the  intended  destination 
of  the  simulation  results.  As  with  the  MSDOS 
version,  the  circuit  must  be  compiled  before  it  can 
be  simulated;  the  compiler  output  is  in  the  data  file 
simdata ,  and  this  file  must  be  present  before  the 
simulator  can  be  invoked. 
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APPENDIX  B. 


CADD . C 


PRECOMP . 


PRIMS. C 


VOHL  COMPILER  SOURCE  CODE 


The  main  module  for  the  VOKL  compiler,  including 
the  code  generator. 

The  precompilation  routines,  including  the  USING 
clause  handler,  the  structure-only  module 
handler,  the  module  counter  and  a  keyword 
stripper.  This  group  of  procedures  contains  the 
bulk  of  the  work  described  in  the  thesis. 

The  primitive  initialization  routine  converted 
into  an  external  procedure. 
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/ttMitntiuntiMMMtt 


l*f**tt*t***t*«l 


Parsing  ^ n '1  Code  Generation  Prooram 
for  the 

Multilevel  Simulator 
VERSION  2.0,  08  Seo  1986, 

Original  version  Developed  under  UNIX  on  the  vax  11/780 
by  Dr,  Auslf  m  a  h  m  o  o  d  at  Washington  State  University, 
Library  addition  routines,  MSD0S,  PCDOS  and  AmigaDOS 
versions  by  Scott  <elly  at  Naval  Postgraduate  Scnool . 


int  .mien  =  500? 
int  .mem [  500)  ; 

•  include  "stdio.h" 


/*<stdio.h>  in  UNIX  environment 


*/ 


/*  This  is  the  parsing  and  code  generation  ( inter-connect i on  list*/ 
/*  of  descriptors  for  tne  user  circuit)  orogram.  it  also  oroduces*/ 
/*  the  corr esoondina  symbol  table  for  orinting  outputs.  Recursive*/ 
/*  descent  parsing  scheme  is  used.  Syntax  directed  translation*/ 


/*  (SOT) 

scheme 

is 

used  for 

code 

genera t ion . 

*/ 

•define 

maxkey 

79 

/* 

maximum  number 

Of 

keywords 

*/ 

•define 

maxsvm 

500 

/* 

svmbol  table  size 

*/ 

/* 

1000  size  in  UNIX 

*/ 

•define 

maxnr im 

100 

/* 

maximum  number 

Of 

primitives 

*/ 

•define 

maxou ts 

3  2 

/* 

maximum  of  32 

outputs  per  orim. 

*/ 

•define 

m  a  x  n  o  r  m 

50 

/* 

normload  table 

size 

*/ 

/*-- - 

DECLAF 

NATIONS - - 

tnr  strcnyC)  ? 


/*  conies  one  string  to  another  */ 


extern 

int 

primsetup(')? 

/* 

external  module  to  name  the  prims 

*/ 

extern 

int 

build  C ) ? 

/* 

creates  a  MUr,TIM0D  file  for  STRUC 

*/ 

extern 

int 

u  e  x  d  a  n  d  C ) ; 

/* 

prints  system-generated  expansion 

*/ 

/* 

requests 

*/ 

extern 

int 

struc-exoand ( ) ; 

/* 

checks  to  see  if  extended  primitive  *- 

/* 

descriptions  need  to  be  added 

*/ 

extern 

int 

aooendO; 

/* 

amends  structural  descriptions  to 

*/ 

/* 

the  MULTIMOn  file  if  called  for 

*/ 

extern 

int 

countcells ( ) ; 

/* 

counts  the  number  of  MODULES  in 

*/ 

/* 

the  user  program 

*/ 

extern 

int 

check. deeoerO? 

/* 

recursive  expansion  routine 

*/ 

extern  int  checkt able ( ) j 


/*  checks  if  primitive  in  expand  table*/ 
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extern  int  oerfor*n„excanslonO;  /♦  routine  that  performs  expands  * / 


int 

s trc^D  C )  : 

/* 

strino  comparison 

*/ 

int 

cjetldO  ; 

/* 

aet  next  identifier 

*/ 

int 

find_token()  ; 

/* 

returns  the  token  number 

*/ 

/* 

(keyword  table  index) 

*/ 

extern  int  swap(); 

/* 

performs  function  substitutions  % / 

int 

COMPILE O  ? 

/* 

parsing  routine  for  1  MOD f 

*/ 

int 

ADD  ( ) ; 

/* 

tests  for  a  reauest  to  add  cells  */ 

int 

MODC)  ; 

/* 

MODULE  oarsing  routine 

*/ 

int 

I NP  (  )  ? 

/* 

INPUTS  oarsinq  routine 

*/ 

int 

out  ( )  ; 

/* 

OUTPUTS  parsing  routine 

*/ 

int 

TYPO  ; 

/* 

TYPES  oarsina  routine 

*/ 

int 

IOSTRI'icn  ; 

/* 

list  of  id's  parsing 

*/ 

int 

CKTO  ; 

/* 

ckt.  inter-connection  parsing*/ 

int 

DEF()  ? 

/* 

DEFINE  parsing  routine 

*/ 

int 

iMin  ; 

/* 

INITIALIZE  parsing  routine 

*/ 

int 

PRIO  ; 

/* 

PRINTOUT  oarsina  routine 

*/ 

extern  int  add-libO? 

/* 

adds  primitives  to  library 

*/ 

int 

r  f  d  e  1  ( )  ; 

/* 

rise/fall  delay  handling 

*/ 

int 

bdreadC)  ; 

/* 

block  delay  reading  routine 

*/ 

int 

cnodeO  ? 

/* 

code  generation  for  mode 

*/ 

int 

matnenO  ; 

/* 

delay  matrix  and  mode  gen. 

*/ 

int 

oarseldO  ; 

/* 

single  id  parslnq 

*/ 

int 

findidO  ; 

/* 

finds  symbol  table  index 

*/ 

int 

finddescO  ? 

/* 

finds  symbol  table  index  for 

*/ 

/* 

the  given  function  name/type 

*/ 

int 

uodesctO  ; 

/* 

updates  the  descriptor  table 

*/ 

/* 

(name  and  symbol  table  index)*/ 

Int 

findorimO  ; 

/* 

finds  brimitive  library  index*/ 

int 

updateO  ; 

/* 

UDdate  symbol  table 

*/ 

int 

c  o  n  n  e  c  t  O  ; 

/* 

code  gen,  and  fanld  ubdate 

*/ 

/* 

(descriotor  interconnections)*/ 

int 

code„inpu t ( )  ; 

/* 

code  generation  for  inputs 

*/ 

/* 

declaration 

*/ 

int 

errmessaqeO  ; 

/* 

error  message  nrintino 

*/ 

int 

outerrorO  ; 

/* 

output  error  message 

*/ 

int 

errorO  : 

/* 

error  handiinq  routine 

*/ 

int 

1 1  r  s  r  p  o  ; 

/* 

first  oass  for  exband 

*/ 
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int 

secondo()  ; 

/* 

int 

pdelimO  ; 

/* 

/* 

int 

ftvpeC)  ; 

/* 

int 

r  e  v  e  r  s  e  ( )  ? 

/* 

int 

f cooy ( )  ; 

/* 

int 

cooy. noend ( ) ; 

/* 

int 

itoaC)  ; 

/* 

int 

cexoandO  ? 

/* 

int 

substituteO  ? 

/* 

int 

foutorderO  ; 

/* 

int 

finorderC)  ; 

/* 

int 

ckt.lineC)  ; 

/* 

int 

s  e  a  r  c  n  C )  ; 

/* 

int 

t  a  c  K  ( )  ? 

/* 

int 

multi. modC)  ; 

/* 

int 

f ad vance C)  ; 

/* 

int 

hashfO  ; 

/* 

int 

test ( ) ; 

/* 

/* 


second  nass  for  exoan-i  «/ 

prints  a  file  of  Key* oris  and  * / 
tokens,  separated  oy  delimiters*/ 

finds  type  of  a  identifier  */ 

reverses  a  string  */ 

file  cooyina  routine  */ 

copies  everything  but  END  token  */ 

integer  to  ASCII  routine  */ 

expands  the  orimitive  in  cKt  */ 

substitutes  the  func's  code  */ 

one  to  one  corr es oondence  for*/ 
actual  and  formal  oarameters  */ 

scans  one  line  of  c<t  desc.  */ 

search  a  delimiter  or  toknn  */ 

tacks  a  number  to  an  id  */ 

sub  module  handling  routine  * / 

advances  to  next  line  */ 

converts  i  n  o  u  t  name  to  number*/ 

tests  for  hash  collisions  */ 

- %/ 


- -DATA  STRUCTURES-  — - - - */ 


struct  svm.tab  < 

/* 

char  nameCR)  ; 

/* 

int  descno,  funcno  ; 

/* 

int  fanld; 

/* 

>  ; 

/* 

struct  desc. tab 

< 

/* 

char  funt8)  ; 

/* 

int  dnun  ; 

/* 

>  ? 

struct  norm. tab 

{ 

/* 

char  nomC8)  ; 

/* 

int  n  m l d  ; 

/* 

>  ; 

struct  orim.tab 

( 

/* 

symbol  table  */ 
name  =  name  of  id  */ 
descno  =  descriptor  number  */ 
funcno  =  orimitive  lib  index*/ 
fanld  =  actual  circuit  load  */ 

taole  containing  function  */ 
names  (type  names)  and  their*/ 
svmbol  table  indexes  */ 


taole  containing  function  */ 
names/tvoes  and  associated  */ 
normload  declared  in  DEFINE  */ 


Primitive  taole  :  */ 
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char 

n  a  m  (  ft  )  ; 

/* 

primitive  table 

*/ 

char 

nam2  r 8 1  : 

/* 

EXTFNDED  primitive  taoie 

*/ 

int 

numoar,  outD  ; 

/* 

numoar  =  no,  of  parameters 

*/ 

int 

normld,  fanout  ; 

/* 

for  the  function 

*/ 

int 

technoloay,  overld 

;  /* 

outo  =  *  of  outputs 

*/ 

>  : 


struct 

err.stacx  { 

/* 

stac*  for  errors  In  one 

line 

*/ 

char 

nm[fl)  ; 

/* 

nm  =  name  of  unexpected 

id 

*/ 

int 
>  ; 

errno  ; 

/* 

errno  =  error  number 

*/ 

struct 

exo.tab  { 

/* 

expand  table 

*/ 

char 

fnamefSl  ; 

/* 

fnum  =  prim  lib  index 

*/ 

int 
>  ; 

f num  ; 

struct 

nameoair  { 

/* 

this  holds  svst em-qenerated 

*/ 

char 

e.f rom  C  81 ; 

/* 

expansion  requests 

*/ 

Char 
> ; 

e.to  C  91 ; 

struct 

swanname  ( 

/* 

eacn  of  these  nodes  will  contain 

a  module 

char 

sname  C8 3  ; 

/* 

specified  in  the  USING 

parameter 

list 

*/ 

int 

used; 

/* 

this  indicates  whether 

used 

or  not 

*/ 

>; 

/* - - - - - - - - - - */ 


— — ST3R AGE  ALLOCATION------------------------*/ 

struct  sym.tab  symt  C  maxsyml  ; 

struct  desc.tab  desct [maxsym 3  ; 

struct  norm. tab  nort Cnaxnor m J  ; 

struct  prl^.tab  Dr imt Cmaxor im] ,  *prlmptr  ; 

struct  err-stac*  errt(53  ;  /*  max  of  5  errors  Der  line  */ 

struct  exD.tab  expt[303  ;  /*  max  30  expansion  requests  */ 

struct  swapname  typelistCmaxDrim]t?l;  / *  table  of  module  replacements*/ 
struct  swapname  swaolist C203 C83 ;  /*  USING  parameter  list  storaqe  */ 

struct  nameoair  r eata.Dl e  Cmaxor im]  ; 

int  req. count ?  /*  number  of  system  expand  reqs  */ 

int  line. count;  /*  line  index  for  swaolist  */ 

int  swap.flaa;  /*  indicates  wnether  all  of  this*/ 

/*  is  necessary  or  not  */ 

extern  int  found -start;  /*  marXs  occurrance  of  s# APLI N  */ 
extern  int  found. end:  /*  marxs  occurrance  of  E'*DS>»AP  */ 

int  sfound; 

int  add.flaq;  /*  set  if  cell  is  to  be  added  to*/ 

/*  Primitive  library  */ 

int  err-Ptr  ;  /*  error  table  Pointer  (count)  */ 

/*  for  one  line,  */ 

/*  delay  matrix  count  */ 


int  matcount 


int  delimiter,  bn,  s-'lc  ?  /  *  delimiter  =  delimiter  t  y  o  e  * / 

/*  bb  =  b u f f [ p 0 1  index  (line)  * / 

lnt  rdnatCmaxout si Cmaxouts],  fdmatCmaxouts] Cmaxouts]  ? 

/*  rise  and  fall  delay  matrices  */ 

lnt  toknn,  err.count  ?  /*  err. count  =  error  count  */ 


int 

desc.no  ,  syT. count. 

symid 

1  ?  /*  desc.no  = 

desc,  count*/ 

int 

dotr,  descid,  lim  ? 

/* 

descriptor  table  indices 

*/ 

/* 

dptr  =  descriptor 

table  ent 

*/ 

int 

normcount  ? 

/* 

normtable  count 

*/ 

lnt 

exocount  ; 

/* 

expand  table  count 

*/ 

int 

cel lcount ; 

/* 

#  of  w0DULEs  in  user  program 

*/ 

int 

f ilecount , pet  ? 

/* 

poutcount  used  for 

debuoainq 

*/ 

int 

Drinof lag? 

/* 

controls  orintina 

of  source 

*/ 

int 

print .select  ? 

/* 

determines  whether 

a  ')'  causes*/ 

/* 

a  linefeed  or  not 

( de  t aul t=no ) */ 

int 

Drill*. count,  prlmld  ? 

/* 

prim. count  =  *  of 

primitives 

*/ 

int 

sys. prims  ? 

/* 

number  of  permanent  (system) 

*/ 

/* 

orimi ti ves 

*/ 

int 

s  a  v  p  r  i  m  ? 

int 

inDcount,outpcount? 

/* 

number  of  inputs  and  outputs 

*/ 

/♦(used  to  add  a  new 

primitive) 

*/ 

lnt  featuresCmaxorim]C2]?  /  *  first  field  describes  the  tyoe  of  * / 

/*  descriptions  available?  */ 

/*  -1  ->  empty  0  ->  bloc*  only  */ 

/*  1  ->  struc  only  2  ->bloc<  £  struc  */ 

/*  second  field  indicates  primitive  level  */ 

lnt  append. table Cmaxorln] ?  /*  *eeps  track  of  the  functions  we've  */ 

int  aooend. index ;  /*  added  to  the  user  propram  */ 

lnt  exodone?  /*  "arks  completion  of  struc  expansion*/ 

lnt  no.comoilation?  /*  used  when  only  making  library  additions*/ 

char  token. buf C81 ,  savbufCP],  buffCSO]  ?  /*  buff  s  l  line  */ 
char  key word Cmaxk ey] C fl ]  ?  /*  keyword  table  */ 

char  inch? 

char  instack Cmaxouts] C8]  ,  ou t s tack tmaxout s H 8 ]  ; 
char  lnlstackCmaxoutsJ(3],  outlstackCmaxoutsHP]  ; 
char  ln2s tack Cmaxouts J  C3 ] ,  out2stack Cmaxouts) C8]  ? 

/*  in/out  stack  =  inouts/output s  from  primitive's  definition  in  */ 

/*  library,  lnl/outl  =  calling  inout s/outnuts  (user  program)  */ 

/*  ln2/out2  =  inou ts/outDuts  of  each  line  in  orimitlve's  desc.  */ 

char  tyostackCnaxoutslCS]  ?/*  types  of  orimltlve  to  be  expanded  */ 
lnt  typcount  ? 

lnt  hashtable C 100] ?  /*  the  hash  table  */ 

lnt  hashcount;  /*  number  of  Items  In  hashtable  */ 

lnt  lncount  ,  outcount  ; 

int  inlcount,  outlcount,  in2count,  out2count  ? 
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lnt  1 

outorder,  inerder 

; 

tnt 

count 

• 

9 

/* 

for  orlntino  on  the  file  */ 

char 

savfuncCB],  userproCRI  ? 

int 

ft,  occurance  ? 

/* 

occurance 

=  *  of  times  call  to 

*/ 

/* 

primitive 

to  be  expanded  is  made 

*/ 

FILE 

*r  1 

• 

t 

/* 

ooin ter 

to 

inout  data  file 

*/ 

FILE 

*r  2 

• 

$ 

/* 

ooin ter 

to 

STRUCT  library 

*/ 

FILE 

*r3 

; 

/* 

ooin ter 

to 

modified  STRUC  library 

*/ 

FILE 

*r  4 

• 

/ 

/* 

pointer 

to 

user  STRUC  description 

*/ 

FILE 

*wl 

• 

t 

/* 

pointer 

to 

expanded  file  P1EXP 

*/ 

FILE 

*tl 

; 

/* 

pointer 

to 

temp  file 

*/ 

FILE 

♦  111 

7 

/* 

pointer 

to 

librarv 

*/ 

FILE 

*sl 

7 

/* 

00  inter 

to 

primitive's  desc*  SCR1 

*/ 

FILE 

*s2 

• 

* 

/* 

pointer 

to 

expanded  circuit  SCR2 

*/ 

FILE 

*rp 

• 

* 

/+ 

read  oointer  to  input  data  file 

9/ 

FILE 

*wq 

; 

/* 

circuit 

description  for  simulator 

*/ 

. . - . - . */ 


-------.-.---.--.-MAIN  PHOGR AH------------------- 

main(argc,  arqv) 
int  arac  ; 
char  *argv  C] ; 

< 

int  i,  j; 

3trcpy(u3erprg,argvCl]); 
prinpflag  =  0  ? 
filecount  =  0  ; 
inpcount=n ; 
outocount=0  ? 
no.comoilation=0 ; 
pr int-sel ect=0 ; 
req.count=o  ? 
swan.f laq  =  0 ; 
line.count=o ; 
hashcount  =  0  7 
for  (1=1;  i<100;  i  +  +  ) 
hashtableCi)  =  -t; 

-PRIMITIVES  SUPPORTED  — —  •  —  —  -  — -  —  —  — 
for  (1  =  0;  1  <  maxortm;  1  =  1  +  1) 

( 

primtCil.normld  =  1  ; 
orimt C 1 )• fanout  =  20  7 
primt Cl) *technoloiv  =  0  ; 
primt  Cl) .overld  =  5  ; 

> 


primsetupC&PrimtCOJ )? 

/* 

initialize  primitives 

*/ 

sys.prims=orim. count; 

/* 

Drimcount  may  change. 

but  */ 

/* 

we  need  a  copy  of  its 

*/ 

/* 

starting  value 

*/ 

- --- - INITIALIZE - - 


/*  always  assume  we're  compiling  */ 
/*  print  ')'  without  a  linefeed  */ 
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for  Cl  =  0;  1  <  laxsv^;  1  =  i  +  1) 
{ 

symt(i3.fanlri  =  o  ? 
symtCD.descno  =  -1  ; 
s y*t Cl). f uncno  =  -1  ? 

> 

for  Ci  =  0;  i  <  20  ;  i  :  i  +  1) 
exot  t i) , f  num  =  -1  ; 

for  (1=0;  i<20; 

( 


/*  set  USING  parameter  lists  */ 
/*  to  EWPT  y  */ 


/*  set  type  list  to  empty  */ 

> 


for  (j=0?  j  <  8  ;  j+O 
{ 

swaollstCi) C  j) . used=0? 

> 

> 

for  C  1  =  0 ;  i<aiaxprim;  i  +  +  ) 

( 

for  (1=0?  j  <8  ? 

< 

typelistCi)  ( j) . usedsO? 


/* 


*/ 


/* - - - 

strcoy ( keyword  CO] , 
strcDV (Xeyrford  Cl], 
strCDv(Kev*ord(2]  , 
strcoy (keyword C3] , 
strcoy ( keyword (43 , 
strcovC keyword C5] , 
strcoy (keyword [6] , 
strcovC  keyword  (73  , 
strcov( vcevword  (83  , 
strcDvC  keyword (93 , 
strcoy (keyword  C 1 03 
strcoy (keyword (1 1 3 
s  trcoy ( keyword  C 123 
strcoy ( keyword  C133 
strcov(*eyword(14) 
strcpyCKevwordCIS] 
strcoy ( keyword  C 163 
strcoy  (Keyword  Cl  73 
strcovC  Keyword C 1  R) 
strcoy (keyword  C 1 93 
strcoy (Keyword  (203 
s trcov ( Keyword  C213 
strcoy(KeywordC223 
strcoy (Keyword (233 
strcov(Keyword(243 
strcoy(KeywordC25) 
strcoy (keyword (263 
strcoyC  keyword (273 


- KEYWORDS 

"«O0ULE")  ? 

"INPUTS")  ? 
"OUTPUTS")  ? 
"TYPES")  ? 
"<")  ? 

">")  ; 
"INITIAL") 
"PPINTOU" ) 
"INTERNA") 
"DEFINE")  ? 

, "RISED^L") 

,  "  FA  LLOFL " ) 

, "TECHNOL" ) 

, "TTL " )  ; 

, "nmos")  ; 

,  "C**3S")  ? 

,  "  E  C  L  "  )  ? 

, "FANOUT")  ? 

, "NORMLOA" ) 

, "OVEPLOA" ) 

,  "  E  N  D  "  )  ? 

, "EXPAND")  ? 

, "USING" ) ? 
,"SWAPLIN") ? 

, "ENDSWAP") ? 

, "M0EXP") ; 

, "ADDLIB") ? 

, "ADSTRUC") ? 


*/ 


/*  used  to  reolace  modules*/ 
/*  mar<s  eacn  cKt  line  */ 

/*  to  be  examined  for  swans*/ 

/*  add  a  cell  primitive  */ 

/*  struc-only  description*/ 
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strcoy(Key*ord[2Al ,"ADBLOrx") 

/*- - - - 


/*  blocx-only  description*/ 

- - - - */ 


err.Ptr  =  -1  ;  /*  error  count  for  one  line  */ 

err. count  =  0  j  /*  error  count  for  program  */ 

exocount  =  0  ; 

pr int £ C "Open inq  the  circuit  descriotor  f ile.  •  ..  \n") ; 


for  Ci=0;  i<maxpr im;  i++) 
append. table C i]  =  -1: 


/*  initialize  the  aooend  table  */ 
/♦to  empty  */ 


apoend.index=0; 

cellcount=0; 

rl=fopenCargvC13,"r"); 

countcells ( r 1 ) ?  /*  count  the  *  of  MODULES  */ 

fclose(rl); 

rl=fopenCargv(l] , "r") ; 

r2=fooenC"outfile","w");  /*  the  "stripped"  file  */ 

buildC);  /*  strip  off  the  END  Keyword  */ 

fprintfCr2,"  END;  \n")7 
f closeCr2) ; 


if  C Cno.compilation==l )  &&  ( add.f laa== 1 ) )  /*  no. compilation  set?  */ 

< 

add.libC);  /*  yes,  add  the  modules  without  compiling*/ 

>  ‘ 
else 

<  /*  no,  begin  compilation*/ 


rl=fooenC"outfile","r"3; 

wt=f ooen C "pt l " , "w" ) ;  /*  copy  user  orog  to  "pll"  */ 

f cooyC r 1 , wi ) ;  /*  (now  we're  bacK  to  */ 

fcloseCrl);  /*  Ausif's  code)  */ 

f close (wi ) ; 

printf C "Files  are  restored.  Multimodule  expansion  begins. \n")j 

/*---- — ---- — ..........  ex  p\  ns  i  on- ------  —  ... — ........ — ...*/ 

firstpC)  7  /*  first  pass,  determine  any  expansion  reguests,  */ 

/*  put  each  request  on  expand  table  Cexpt)  */ 

perf orm.expans ionO ;  /*  any  expansions  handled  in  here  */ 

rl=fooen("Dll","r");  /*  copy  oil  to  INFILe  */ 

r2=fooenC"infile","w"); 

fcooyCrl ,r2) ? 

fcloseCrl}; 

forintf(r2,  "END;  \n"); 
fclose(r2) ; 


rl=fooenC"infile","r")?  /*  cooy  INFILE  to  OtJTFILE  */ 

r2=fooenC"outfile","w")7  /*  but  leave  OUTFILF  ooen  */ 

cooy.roendCrl,r2); 
fcloseCrl ) ? 


cel lcount=o ; 


rl=fooen("infile","r"); 

countce lls ( r 1 ) ?  /*  count  the  #  of  MODULES  */ 

fcloseCrl); 

rl  =  fooen("inflle",',r")? 

struc.exoand ( ) ;  /*  handle  any  struc-only  prims  */ 


rl  =  fooen("outfile',,,,r"); 
r2=fODen("oll","w"); 
fcooy(rl,r2); 
f closeCrl ) ; 
f close(r2) ; 

for  (1=0;  i<exocount;  i  ♦  ) 
exot  Cl). f nun  =  -1 ; 
expcount=o ; 


/*  cooy  this  file  bac*  to  pll  */ 

/*  and  exoand  the  struc-only  prims  */ 


/*  clear  the  expand  table  */ 


firstoO;  /* 

If  (exDCount>0)  /* 

perf orm.expanslonC ) ? 

if  (swac.f lag==l )  /* 

swaoO;  /* 


and  take  care  of  any  modules  */ 
that  s truc-expand ( )  added  */ 


any  USINGS  to  deal  with?  */ 
if  so,  make  the  substitutions  */ 


/•-•----------------end  expansion 

rp  =  fopen("pll"/rH); 
wg  =  foDenC^sirndata","**)? 

orinoflag  =  1  ; 

dotr  =  0  ; 
normcount  =  o  ? 
sym. count  =  0  ? 
desc.no  =  0  ; 
sym id  =  -1  : 
mat  count  =  0  ? 


- - - - . - - - */ 

/*  expanded  user  proaram  %/ 

/*  initialize  compiler  vars  */ 


/•  desctable  count  */ 
/*  norm  table  count  */ 
/*  symble  table  entries  count  */ 
/*  descriptor  count  */ 
/*  symbol  taole  index  */ 
/*  delay  matrix  count  */ 


/*---- - .... - PARSING  AND  CODE  GENERATION----- - -  —  -  —  —  — 

/*  Recursive  descent  oarsina  is  used  ,  STD  scheme  is  used  for  */ 

/*  code  generation.  Bnf  is  as  follows,  */ 

/*  */ 

/*  <C0MP I LE>  =>  <M0D>  < I N p >  <0UT>  <TYP>  {  <CKT>  >  <DEF>  <INI>  <PRI>*/ 
/*  Non-terminals  are  defined  in  their  respective  sub-programs  */ 


COMPILEC)  ; 


f close  (ro)  ; 
if  (err.count  !=  0) 
error(26)  ; 
else 

error(38)  ; 
outerrorC)  ; 

> 


/  *  Compilation  discontinued  message  * / 
/*  no  errors  encountered  message  */ 


> 

- - - -END  OF  main  PROGRAM---- - - - ..... - */ 
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. . . -  -  -  m  A  I  *J  PARSING  POUTT  NE  FIR  1  MODULE---------------*/ 

/*  Recursive  descent  D^rser.  Synatx  directed  translation  (SOT)  */ 

/*  scheme  is  used  for  code  generation.  RNF  is  as  follows  */ 

/*  */ 

/*  <CDMPILE>  =>  <M0D>  <INp>  <0UT>  <TYP>  {  <CKT>  >  OEF>  <INI>  <PRT>*/ 
/*  <-->  =  non  terminals,  all  others  are  terminals  */ 


COMPILEC) 

{ 

or intf ( "Comoilat i on  begins, \n")J 


mod ( )  ; 

/* 

call  to  w0DULE  Darsing  routine 

*/ 

INPO  ; 

/* 

call  to  INPUTS  Darslnq  routine 

*/ 

OUTC)  ? 

/* 

call  to  OUTPUTS  parsing  routine 

*/ 

skip  3  o  : 

TYPO  ; 

/* 

call  to  TYPES  parsino  routine 

*/ 

if  CskiD  1=  l) 

parseid(4)  ; 

/* 

*  {*  parsing 

*/ 

skip  =  0  ? 

CKTO  ? 

/* 

Circuit  interconnections  parsing 

*/ 

/* 

'}'  taken  care  of  In  CKT 

*/ 

mataenC)  ; 

/* 

delay  matrix  generator 

*/ 

DEFO  ? 

/* 

DEFINE  Darsina 

*/ 

INIO  ? 

/* 

INITIALIZE  parsing 

*/ 

PR I  ( )  ? 

/* 

PRINTOUT  parsing 

*/ 

fprintf  (wa,  "  50\nO 

t 

/*  put  a  terminator  on  "simdata" 

*/ 

f closeC  wq) ; 

/* 

clean  uo  and  quit 

*/ 

If  (add.f lao==l ) 

< 

add-libO;  /*  perform  additions  to  primitive  library  */ 

> 

> 

/* - - - - - - - - - */ 


/*-- - -------------MODC  )-- . . . . . . */ 

/*  <M0D>  =>  MODULE  <dellmlter>  id  */ 

MOD  (  ) 

< 

oarseld(O)  ?  /*  ado  and  MODULE  parsing  */ 

oarseid(maxkey);  /*  module  name  */ 

> 

/*- - - - - - - - - - - - - */ 


/*-- - IMP  O-  — - - - - - - */ 

/*  < I N  P  >  =>  INPUTS  <del imi t  er>  <IDSTPING>  */ 

INPO 
( 

oarseid(l)  j  /*  INPUTS  parsing  */ 

IDSTRING(O)  ?  /*  input  names  */ 

> 

/* . - . . 


/* 


OUTC) 


*/ 
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/*  <o;it>  =>  ghtp'it^  <deii*niter>  < ihsr3 xvir.>  */ 

Hum 
< 

parseid(2)  ;  /*  OUTPUTS  oarsina  */ 

IOSTRI^GC-ID  ;  / *  -1  =  cutouts  code  for  s  y  n  t  a  o  *  / 

> 

/* . . . */ 

/* . TYPO . . . */ 

/*  <TYP>  =>  TYPES  <deliniter>  <T>  */ 

/*  <T>  =>  <P?IMTY?E>  I  <IMT  TYPE>  I  i  */ 

/*  <PPI“TY?E>  =>  <PPI^ITIVE>  =  <TDSTRIMG>  */ 

/*  < I KT  T  Y?E>  =>  IVTERMA IS  =  <IDSTRIVG>  */ 

/  *  M#  sarsinq  Is  covered  in  this  routine  *  / 

TYPO 

< 

oarseid ( 3 )  ;  /*  TYPES  parsing  */ 

while  (1)  /*  <T>  expansion  */ 

< 

ge t i d ( rp , 41 )  ;  /*  41  =  hissing  (  error  */ 

find.to<en()  ? 

if  (to <nn  ==  4)  /*  If  *(*  found,  then  quit  */ 

{ 

sfc  Id  =  1  ; 

nre*KT  :  /*  no  types  declared  */ 

> 

if  (toxnn  ==  3)  /*  <INT,  TYPO  expansion  */ 

IDSTRINGC-2)  ;  /*  -2  =  code  for  internals  «/ 

else  /*  TYPES  expansion  */ 

< 

findorinO  ;  /*  <P9I*TYPE>  expansion  */ 

if  (orimid  >=  pri-n. court) 

error (30)  :  /*  undefined  fuction  */ 

IDSTPISGCorlnid)  J 
)  /*  end  TYPES  */ 

)  /*  end  while  1  */ 

}  /*  end  function*/ 

. . . 

/*- . . . TDSTPINSf) - - - - - - - */ 

/*  <IDST9I«G>  =>  id  ;  I  <IDST«ING>  Id  ,  */ 

IDST3I VS( code )  /*  code  =  0  for  inputs, -1  for  outputs  */ 

{  /*  -2  for  internals,  */ 

•#nile  (deliriter  1=  2)  /*  delimiter  =  ;  */ 

{ 

oarseid(naxic*y);  /‘name  */ 

update ( code )  ;  /*  update  syrhol  taole  */ 

/*  code  =  0  for  input  */ 

/*  -1  for  output  */ 
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/ *  prim  P  for  TYPE 


if  (code  ==  o  ) 

code_inDutHesc-.no)  t  /*  inout  code  den* 

if  (code  <=  0  ) 

desc.no  =  desc.no  ♦  1  ; 


*/ 


*/ 


> 

> 


/* 


*/ 


/♦-----••-<CKT>---INTER CONNECTIONS  parsing . --- . */ 

/*  <CKT>  =>  <IDSFRIES>  =  <PRIM>  C  <IDSERIES>  )  ?  <CKT>  I  */ 

/*  < I DS  EP I FS>  =  <  PP I M  >  (  <IDSERIES>  );  */ 

/*  <IDSERIES>  =>  id  I  id,  <IDSERIES>  */ 

CKTC) 

{ 

int  outDar,  end  ?  /*  number  of  output  parameters  */ 

int  savoar,  j  ; 

int  sa vid [maxout s]  ,  savn [maxouts] ,  fwdp  ; 

/*  savidU  saves  symbol  table  indexes  while  savnH  saves  desc.  */ 
/*  numbers  for  output  list  names  */ 

end  =  0  ? 
while  (end  ==  0) 

{ 

/*---- - -- - - 

out  par  =  -1  ? 
while  ( 1 1 
{ 

getid(rp,4H  ? 
find.tokenO  ; 

if  (toxnn  ==  5)  /*  if  >  found,  end  compilation  */ 

< 

end  =  1  ; 
break  ; 

> 

if  Ctoknn  <  maxxey)  /*  left  hand  side  should  not  be  a  keyw.*/ 
err or ( 25  )  ; 
outoar  =  outpar  ♦  1  ? 

findDrimO  ; 

if  (Drimid  <  prim. count) 

error(25)  ?  /*  output  name  is  a  keyword  */ 

findidC)  ?  /*  find  the  symbol  table  index  */ 

if  (symid  >r  0) 

<  /*  save  output  indices  in  an  array  V 

savid Cou t par 1  =  symid  ; 
savnCoutpar]  =  symt Csymid] .descno  ; 

> 

if  (delimiter  ==  4)  /*  #=#  should  follow  the  output  names  */ 


< I DSER IES>  for  outputs--. - 


/*  left  side  of  assionment  statement  */ 
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b  r  e  a  k  ? 
else 
< 

1  £  (delimit  er  l =  X ) 

error(311  ;  /*  expected  after  each  na* ne  */ 

> 

>  /*  end  *hile  <IDSERIFS>  for  outputs  */ 

/* . . 

If  Cend  ==  l)  /*  if  found  nuit  */ 

breax  ; 


/% - -- -- - .........<pRIM> - ......... - 


aetid(rp,33)  ; 
if  (delimiter  !  s 
error(29)  ; 

6) 

/*  function  name 

/*  "('  should  follow  function  name 

*/ 

*/ 

if  (err. count  == 

0) 

< 

If  (outDar  >  0)  /*  if  *  of  outputs  >  1,  connect  exten-  */ 

<  /*  slon  pointers.  */ 

for  (j  =  0;  j  <  outoar;  j  =  j  ♦  1) 

{ 

/*  fprintfCwo,  "  desc C%d] , ext.ptr  =  6(descC%d])  :\n",  */ 

fprintfCwq,  "  1  %d  15  led", 

savn  ( j ]  ,  sa vn  f  j  +  1 3 )  ; 

/*  £printf(wo,"  deset^d]. parent  =  *d  ;\n",  */ 

fprintf(wa,"  1  %d  16  %d", 

savn  C  j  +  1  ]  ,  savn  CO] )  ; 

fadvance(8)  ; 

> 

> 

> 

findorimC)  ; 

If  (orim Id  >=  Prim. count ) 

< 

findldC)  ;  / *  function  name  is  a  type  *  / 

primid  =  sy^t tsymid] , t uneno  ; 

> 

if  (err. count  ==  Q) 

/*  fprintfCwD,"  desc C%d] , of unc=*s ; \n ", savn CO]  ,  */ 

/  *  orimtCprimidJ.nam);*/ 

fDrintfCwo,"  33  %d  %d" , savn CO] , orimid )  J 
f  advance ( 3 )  ; 

if  (or lmt Cprimid] ,outp  !=  (outpar+t)) 

error(35)  ;  /*  n  of  outputs  should  be  as  in  table  */ 

forCI  =  0;  j  <=  outoar:  j  =  J  ♦  1 )  /*  update  symbol  table  */ 

{  /*  and  desc  table  */ 

symtC(savid(j])].funcno  =  primid  : 
updeset C to* en.buf ,  savidMl)  j 

> 

/* - - ....... - - - - - - - - - */ 
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/* 


I  dsfpt&:s>  Cor  inouts 

fw<dp  =  n  ; 

sflvoar  =  or imt r or imid] . numoar  :  /*  number  of  inouts  */ 

savorin'  =  orimid  ; 

s trcoy ( savbuf ,  token. buf)  7  /*  save  function  name/tyoe  */ 

while  (savoar  !=  0)  /*  while  all  inouts  have  been  scanned  */ 

< 

parseid(maxkev)  7  /*  parameter  of  function  */ 

findidO  ;  /*  find  oarameter's  location  In  the  */ 


connect ( 0 , savn , fwdp ); /*  aenerate  code  and  update  fanld  */ 

if  (savpar  ==  1) 

{ 

if  (delimiter  !=  5)  /*  O'  exoected  after  the  last  arg.  */ 

error(32)  ? 

> 

savpar  =  savoar  -  1  ; 
if  (savoar  1=  0) 

{ 


if  (delimiter  1=  1) 
error(3l)  ; 

/*» 

exoected 

after  first  parameter 

*/ 

parseid(maxkey)  ; 
if  (savoar  >  1) 

< 

if  (delimiter  1= 

/* 

get  next 

argument 

*/ 

1)/* 

,  expected 

after  argument 

*/ 

e  r  r  0  r  ( 3 1 )  ; 

> 

else 

{ 

if  (delimiter  5) 


error(32)  7 

> 

findidO  ; 

/* 

)  expected  after 

last  arg. 

«/ 

/* 

find 

svmool  table 

index  for  the 

«/ 

/* 

inout 

name 

*/ 

connect ( 1 ,savn, 

fwdp) 

• 

9 

/* 

generate  code  and 

update  fanld 

*/ 

savoar  =  savoar 

-  1 

% 

9 

fwdo  s  fwdo  ♦  1 

t 

if  (outoar  >  0) 

/* 

multioutout 

case  */ 

outoar  a  outoar  - 

1 

7 

else 

{ 

if  (savpar  != 

0) 

/* 

multi 1 nput 

case  */ 

< 


/*  f or intf ( wd , " 

descend! 

.ext-Dtr  =  & (desc  [%dl ) ; Va" , 

*/ 

forintf (wq,  " 

1  id  15 

%d " » 

savnCfwdo  -  1],  desc.no)  ? 

/*  f  orintf  (wo,  *• 

desc (%dl 

•parent  =  %d  ?\n". 

*/ 

forintf (wq," 

1  %d  16 

*d"  , 

desc^no,  savn ( t wdp-l ] ) 7 


fadvance(9)  ; 


savnffwlD]  s  iesc.no  ; 
desc.no  =  desc.no  +■  !  ; 

> 

> 


/* 

end 

if 

♦  / 

/* 

end 

of  <IOSERIES> 

for  inputs  */ 

/* 

end 

while  end  =  0 

*/ 

/* 

end 

<CKT> 

*/ 

/* . . 


..CD MWCCT--- ----------------------- 

/*  Circular  list  generation  for  the  circuit.  Previous  list  is  */ 
/*  broken  and  new  circular  looo  is  made.  */ 

connect(f,savn,fwdo) 

in t  f  ;  /*  f  is  0  or  1  */ 

int  savn(3,  fwdp  ;  /*  savn  has  desc  #  of  output  names  */ 

{ 

int  i  ? 

if  (err. count  ==  0) 

{ 

/♦•-----------------•----uodate  fan  id---- ----------- 

for  (i  =  0;  i  <  nor-ncount?  i  =  i  ♦  1)  /*  find  name  in  nort  */ 

if  (strcmo(nort  Cil  ,nom,savbuf  )  ==  0) 
brea<; 

if  Ci  <  noncount)  /*  if  over  ride  is  used  for  norm  load  */ 

symt Csymid3 . f anld  =  symt Csymid) . f anld  ♦  nort(i3.nmld  ; 
else  /*  use  default  value  fro*  prim.  lib  */ 

symt Csymid3 , f anid=symt (svmid3 . f anld  ♦  print Csavori*] .normld? 


/* . */ 

/♦  fprintf(wo,"  savn  =  desc C%d3 • h. value  ;\n",  */ 

forintf(wq,H  2  %d", 

symt Csymidl . descno)  ; 

/♦  fprintf(wp,"  otr  =  desc(%d3. header  ;  \n",  ♦/ 

forintfCwq,"  3  %d", 

symt Csvmid] .descno)  ? 

/*  save  current  oointer  fro*  tne  input  ♦/ 

/*  fprintf ( wo, "desc C%d3 . headers ( desc C%d3 )? \n"  ,  */ 

forintf(wq,"  l  %d  0  %d", 

symt Csymidl .descno,  savnCfwdp])  ? 


/*  fprintf(wp, "desc C%d3 .n. value  s  %d  ;\n" ,svmt Csymid3 .descno, f ) ? ♦/ 
forintf(wq,"  1  %  d  11  %d",symtCsymid3. descno, f); 

/*  f orintf (*o, "desc C*d3 .righttd  =  ptr  ?\n",  */ 

for int f ( wq , "  l  %d  9  Id", 

savn  Cf wdol , f )  ; 

/♦  forintf (wo, "desc f%d 1 • r. value C%d3  =  savh  ;\n",  */ 

f orintf (wq,  "  l  %d  12  %d", 

savn(fwdp3,  f)  ; 

/*  complete  the  C-list  ♦/ 

fprintf(wq,”  \n")? 
filecount  =  0  ; 

> 


>  /*  end  connect  */ 

/>--- - - - - - - ........ - 


/*« 

/* 

<OEF> 

=>  <pPiMin>  ;  <definitihns> 

*/ 

/* 

<DEFTN1TI0NS>  =>  RISEDELAYCnum,  num)  = 

num 

1 

*/ 

/* 

FALLDELAY (num ,  num)  = 

num 

1 

*/ 

/* 

FA  MQUT  =  num 

1 

*/ 

/* 

NORMLOAD  =  num 

1 

*/ 

/* 

OVERLOAD  s  num 

1 

*/ 

/* 

TECHNOLOGY  =  <TECHTYPE> 

*/ 

/* 

<  TECH 

ryPE>  =  TTL  1  WMOS  1  CMOS  1  ECL 

*/ 

DEF  (  ) 

{ 

int  j,  num,  savtoken  ; 
int  fanl,  techl,  over!  ? 

skio  =  0  ; 

parse ld(9)  ?  /*  DEFINE  expected  */ 

while  Cl) 

{ 

getidCrp, 42)  ; 


find. token ( ) ; 

/* 

function  name  or  type 

*/ 

if  (toknn  ==  6) 

/* 

if  token  =  'INITIALIZE' 

*/ 

{ 

skip  =  l; 
break  ; 

> 

s trcoy C savbuf ,  toxen.buf ) ; /*  save  function  name  in  savbuf  */ 
findorimC)  ; 

if  C  primid  >=  prim. count) 

{ 

findirf  C)  ; 

primid  =  svmt  Csymid]  .  t  uncno  ; 

> 

fanl  =  Drimttpri mid). fanout  ; 

techl  =  primt [primid) . technology  ;  /*  default  parameters  */ 

overl  =  crimt Corimid) .overld  ? 

....••••.....••define  statement------ 

while  (delimiter  2)  /*  each  define  ends  with  */ 

i 

getidCrp, 43)  ? 
f ind.tokenC ) : 

savtoken  =  to<nn  ?  /*  savtoken  =  'RISEDELAY'  ...etc..*/ 

switchCsavtoken)  { 


case  10: 

r f del (0)  ; 
break  ? 

/* 

rise 

delay 

*/ 

case  11: 

rfdelCl)  ; 

/* 

fall 

delay 

*/ 

hr  ea< 


case  12: 


getidCro,33)  ; 
for  (j  =  13;  j  <=  16;  j 
< 

if  Cstrcmp( token. buf , 
break  ; 

> 

it  (1  >  16) 
error(36)  ? 
else 

techl  =  j  ; 
brea^  ; 


/*  TECHNOLOGY  s  --  */ 

=  3  +  1) 

keyword  C  j ]  )  ==  0) 


/*  undefined  technol.*/ 


case  17:  getid(rD,33);/*  fanout  -  net  value  of  par a, */ 
fanl  =  atoi ( token. buf)  ?  /*  ASCII  to  inteaer  */ 
break  ; 


case  19:  break  ;  /*  nonload  handled  in  first  oass  */ 

case  19:  getld(rp,33)  ? 

overl  =  at oi ( token. buf )  ;/*  value  of  overld  */ 
break  ; 

default:  errorf36)  ;  /*  syntax  error  message  */ 

>  /*  end  switch  */ 

>  /*  while  ;  eacn  DEFINE  ends  with  */ 


/♦--------------------generate  code  for  mode--*--------------*/ 

If  (err. count  ==  0) 

< 

iim  =  0; 

while  (lint  <  dotr) 

{ 

flnddescCsavbuf)  ; 

If  dim  >  d d t r ) 
b  r  e  a  k  ; 

nun  =  symt(descid],fanld  ; 

If  (num  >  fanl) 

cnodeCnum,  fanl,  overl,  techl)  ; 

> 


> 

/*-- - - - - - - - 

>  /*  end  while  (1)  */ 

>  /*  end  DEFIMF  */ 

/*-- - ......... - - - - - .... - ..... - --*/ 


/*-- ............... --CMODEC  —  — —  —  —  —  —  —  —  —  --  — */ 

/*  Code  generator  for  mode.  Code  is  generated  only  if  mode  !=  0  */ 

cmodeCnum,  fanl,  overl,  techl) 

Int  num,  fanl,  overl,  techl  ; 

{ 

if  (num  <=  (fanl  +  over!)) 

{ 


if  (tecnl  ==  16) 

/*  f  Dr  int f  (  vd  ,  *  d esc  C  %d]  ,  oar am  C  6 ) 
<Drintf(wa,M  !  %d  6  2", 

else 

/*  f pr intf C wo , "  desc C%d] . param ( 6] 

f Dr intf ( wq , "  l  *d  6  1", 

> 

else 

< 

If  Ctechl  ==  16) 

/*  f prlntf (wd, "  desc C %d) , param  [6] 
fprintf(wa,"  l  *d  6  3", 

else 

/*  f print t ( *d  ,  "  desc C % d 3 # param C 6 3 
forlntfCwq,"  1  %d  5  4", 

fadvance(4)  ; 

> 

)  /*  end  C^nDR  */ 

/%- ......... ............ - ...... - 


2  ;\n",  */ 

symr  Cdescid)  .descno)  ; 

1  ;  \  n " ,  */ 

symt Cdescid) , descno)  i 


3;  \n",  */ 

symt Cdescid] .descno)  ; 

4 i  \n",  */ 

symt Cdescid] .deseno)  ; 


*/ 


/* . - . RFDELC)  . . . . . */ 

rfdel(nl) 
int  nl  ? 

{ 

int  pari,  Dar2,  parml,  parm2,  num,  savparl,  savpar2,  inp  ; 
if  (delimiter  !=  6) 

error(29)  J  /*  exDected  after  RD,  FO  */ 


qetid( rp , 33)  ; 

pari  =  atoi ( toxen.buf )  ; 

/* 

first 

index 

*/ 

Darml  s  Drimt C Dri mid]  .numoar  ? 
Darm2  s  Drimt (primid) .outD  ; 

if  (pari  >  Darml) 

error(39)  ? 

/*  incorrect 

first 

index 

*/ 

if  (delimiter  1=  t) 

/* 

exDected 

*/ 

e  r  r  o  r  (  3 1 )  ; 

getid(rD,33)  ; 
par2  =  atoH  token. buf )  ? 
if  (par2  >  par m2 ) 
error(40)  ; 
if  (delimiter  »=  5) 

/* 

second 

index 

%/ 

error ( 32 )  ;  /* 

')'  exDected 

*/ 

getid ( ro , 33)  ;  /* 

num  s  atoi ( token. buf )  ? 

value 

of  rise 

delay 

*/ 

savparl  =  Dari  ? 

/*  save 

first 

index 

*/ 

savDar2  =  Dar2  ; 

/*  save 

second 

index 

*/ 

1  i  n  =  o  ; 

Drlntf("dDtr=ld\nn,dDtr)? 

while  C  ll’n  <  dDtr)  /*  generate  code  for  all*/ 

i  /*  descs.  using  name  In  */ 

finddesc(savbuf)  ;  /*savbuf  */ 

1 1  m  =  1 1  m  +  o  a  r  n  2  -  1  ;  / *  11m  Is  Incremented  o  y  t  of  outputs*/ 

prlntfC"new  v a  1  for  11m  Is  %d\n",linO? 

If  Clim  >  d'otr)  /*  desctable  has  successive  entries  */ 

br eaK  ;  /*  for  multi-output  descriptors  */ 

fadvance(2)  ; 

If  CDarl  >  1)  /*  first  access  desc,  */ 

< 

/*  fprintfCwp,"  otr  =  descend) text_Dtr;\n"#symt[descid],descno);*/ 
fprintfCwa,"  6  Id" , symt Cdescidl . deseno) ? 
pari  =  pari  -  2  ; 
whileC  oarl  >  01 
< 

/*  forintfCwp,"  ptr  =  (*otr) .ext.otr  ;\n")  ;  */ 

fprintf (wq,  "  7  "1; 

*  f advance  Cl); 


pari  s  oarl  -  2  ; 

> 

>  /*  if  oarl  >  1  */ 

else  /*  if  oarl  =1  */ 

/*  f  Dr  int  f  ( wp , "  ptr  =  &  (desc  C Id )  ) ;  \n" ,  symt  Cde scidl  ,  des  cno ) ;  */ 
forintfCwq,"  4  |d",symt(descid3«descno); 

inD  =  savoarl  %  2  ;  /*  even  or  odd  oarJ  */ 

if  (par 2  ==  n) 

/*  fprlntfCwo,"  ( *otr) . Daram (%d)  =  %d  ;\n",  */ 

forintfCwa,"  5  Id  Id", 

( ( 2  +  nl )  ♦  2*inp),  num)  ? 

else  /*  multi-output  case  */ 

< 

par2  =  par2  -  1'; 

/*  fprintf(wD#"  ptrm  =  C*ptr),mptr  ;\n")  ;  */ 

fprlntfCwo,"  9  " )  ; 


fadvance(3)  ? 

while  ( par2  >  0) 

{ 

/*  fprintfCwp,"  ptrm  =  ( *Dt rm ) .matotr ;  \n");  */ 

fprlntfCwo,"  9  " )  : 

fadvanceCl)  ; 

oar2  =  par2  -  1  ; 

> 

if  Cinp  ==  0) 

{ 


if  ( 0 1  ==  0) 


/* 

forintfCwD," 

(  *Dt  rut )  .  rde  1  ayO 

=  %d;\n" 

*nufn);  *  / 

fprintf (*a, n 

10  %  d  "  ,  n  u  m )  ? 

else 

/* 

f or int f  C  wo , " 

( *otrm) . f delayO 

=  %d;\n" 

,  n  u  m )  ?  *  / 

f orintf (wq, "  11  %d" ,num)  ; 

> 

else 

{ 

if  (nl  ==  0) 


/* 

fprintf (wo," 

(*Ptrm) , rdelayl  =  %d;\n",num)j 

*/ 

f orintf ( wa ,  " 

12  %d " , num )  ? 

else 

/* 

f orintf (wd, - 

( *otrm ). f delay  1  =  %d ; \n " , num ) ? 

*/ 

fprintf (wq," 

13  %d",num)  ? 

fadvance(2)  ; 

} 

> 

pari  =  savparl  ? 
Dar2  =  savoar2  ? 

) 


>  /*  end  RFDEL  */ 

/*--- - - - - - - - - - - */ 


/♦--•-•--•-•-----•---DELAY  MATRIX  GENERA TOR 

/*  Also  generates  default  mode  values  for  all  functions  involved  */ 

mataent ) 

{ 

int  Dari,  d  a  r  2  ,  i ,  j ,  * ,  1,  m  ; 
int  num,  f 1 ,  ol,  tl  ; 
char  s  C  8  ]  ; 

/* - - - - DEFAULT  MODE  GENERATION--- - - - - */ 

for  Ci  =  0?  i  <  sym. count?  i  =  i  ♦  1) 

{ 

if  ( symt C i ] . descno  >=  0) 

< 

if  C svmt Ci] , f uncno  >  0) 

( 

descid  =  1  ?  /*  cmodeC)  needs  descid  for  code  gen.  ♦/ 

num  =  symtCil.fanld  ; 
fl  =  primt C C symt ti] . funcno) 3. fanout  ? 
ol  =  or imt C (symt Ci] . f uncno) 3 .overld  ; 
tl  =  prirt C(svmtCi] .f uncno)] .technology  ? 
if  (num  >  fl)  /*  if  non  zero  mode  */ 
crrodeCnum,  fl,  ol,  tl)  ? 

> 

> 

> 

/* - - - - DEFAULT  DELAYS  AND  MATRIX  STRUCTURE-------*/ 

i  s  0  ? 
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while  (  i  <  dpr. r) 

< 

j  =  symt  Cdesct  C  i  ]  .  dnuml  .descno  ?  /*  descriptor  hummer  */ 

k=symtCj],funcno?  /»  function  nuTDer  */ 

strcoyCs,  primt Ck] , nam2 )  ?  /*  s  contains  name  of  function  */ 

bdreadCs)  ?  /*  read  block  delays  for  s  in  rd/fdmat  */ 

if  Ck  >a  o)  /*  if  not  input  Dr  types  etc,*/ 

< 

pari  =  dt imt Ck] .numpar  ; 
dq r2  r  Drimt  Ck] .outo  ? 

1  =  i  +  Dar2  -  1  ? 

/*  pari  =  number  Df  inputs,  oar2  =  number  of  outDUts  */ 

fDr  (1  =  1;  1  <3  Dari?  1  =  1  ♦  2)  /*  vertical  scanning  */ 

< 

if  Cl  >  2) 

< 

if  Cl  >  4) 

/*  f Drintf c wo  , "  ptr  =  C*Dtr ) .ext-Dtr  ?\n")  ;  */ 

fprintf(wq,"7M); 
else 

/*  for intf Cwo, "  Dtr  a  desc C %d ) . ext-Dtr  ;  \n",j)  ?  */ 

forintfCwq,"  6  %d",j)  ? 

} 

else  /*  inputs  =  1  or  2  */ 

/*  for intf ( wo , "  Dtr  s  SCdescCfcd])  ?  \n",j)  /  */ 

fDrintfCwq,"  4  %d",j]  ; 

fadvanceC2)  ? 

-code  fDr  block  delays-----------------*/ 

if  Crdmat  Cl-U  CO]  ’3  -1) 

/*  fprintf CwD,"(*Dtr),DaramC2]  3  %d ? \n  "  , rdmat C 1-1 ]  C01)  ?  */ 
fDrintfCwq,"  5  2  %d" ,rdmat C1-1J CO])  ? 
if  CfdmatCl-M  CD]  »s  -1) 

/*  f orintf C wo , "  C*Dtr) . param c 3]  =  %d ? \n" , f dmat Cl -1 ] CO] ) ;  */ 

f  print  f  C  wq  ,  "  5  3  %d"  ,f  dmat  Cl-H  CO]  )  ? 
if  CCl+i)  <3  Dari ) 

< 

if  Crdmat  Cl]  CO]  «a  -1) 

/*  f pr intf  C  *d,  "  C’otr ) , oaram  [4]  3  *d ; \n " ,  r dma t C 1 3 C 0 ] ) ;  */ 

f printf  C  *q , "  5  4  %d " , r dmat C 1]  C 0 ]  )  ? 
if  Cf dmat  Cl]  CO]  !s  -1 ) 

/*  f orintf  C  wo ,  "  C*ntr) ,DaramC5]  3  %d;\n", fdmat Cl]  CO]  ) ;  */ 
f print f  C  "  5  5  %d " , fdmat  Cl] CO]  )  ? 

} 

fadvanceCl?)  ? 

/*- . . . — - - - - - - ---*/ 

for  Cm  a  2?  m  <s  Dar2  :  m  s  m  ♦  1 ) 

< 

if  Cm  ==  2) 

< 

/*  fprintfCwo,"  (*Dtr),motr  3  & (matx C%d] ) ? \n" , matcount) ; */ 
fprintfCwq,"  14  %d" , matcount )  ? 
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mat  count  =  matcount  ♦  1  ; 

> 

else  /*  If  number  of  outputs  >  2  */ 

< 

/*  forintf(wD,"  matx [*d] .matptr  =  &CmatxC%d])  ;\n",  */ 
fprintf (wq, "  15  *d  %d", 

matcount  -  1  ,  matcount)  ; 

matcount  =  matcount  4-  1  ; 

> 

fadvance(3)  ; 

/♦-•---------------code  for  block  delays-  — -•——  —  */ 

if  (rdmatn-1)  C m- 1 3  *s  -1) 

/*  fprintf(wo,"  natx Cld] .rdelayO=  %d ? \n ", matcount- 1 ,  */ 
forintf(wq,"  16  *d  %d" , matcount-1 , 

rdmat  C 1-1]  Cm-i  ] ) ; 

if  (f dmat  Cl-1)  Cm- 13  !=  -1) 

/*  fprintfCwo,"  matx C%d] .f delayOs  %d ; \n * , mat count-1 ,  */ 
f print f ( wq ,  "  17  %d  %d " , mat count- 1  , 

f  dmat  Cl-13  [m-n  )  ; 

if  ((1+1)  <=  oar 1 ) 

< 

if  (rdmat  C13  C.m-l]  1=  -1) 

/*  fprintf (wo,"  matx C%d] . rdelay 1=  %d; \n natcount-1 , */ 
f  Drintf  (wq,"  18  %d  %’d"  ,  matcount -1 , 

rdmat  Cl]  Cm-n  )  ; 

if  (fdmatCl] Cm-11  !=  -1) 

/*  t pr in t f ( wo , "  matx C%d] . f delay  1  =  %d ? \n " , matcount-1 ,  */ 

f prin tf ( wq , "  19  %d  %d *, matcount-1 , 

f  dmat  CIJ  Cm-in  ; 

> 

fadvance(12)  ; 


/* - .... - - - -  — - - - —  V 

>  /*  end  for  me--*/ 

>  /*  end  for  is--*/ 

>  /*  end  if  Os  0  V 

1  =  i  +  1  ; 

>  /*  end  for  i  =  --  */ 

>  /*  end  matden  */ 

/  * . . . . . . . . . . . . --*/ 


------BDREAOO—  — - - - - - - - - */ 

/*  This  routine  reads  toe  block  delays  for  a  given  function  name  */ 
bdr ead ( s ) 
char  s  C 8]  j 
( 

int  i,  j,  numl,  x,  y,  w,  z,  il  ; 

FILE  *ri  ; 
char  pCB]  ; 

rl  =  fooen("bldel","r")  :  /*  block  delay  file  */ 

----------initialize  delay  matrix  to  -1 

for  (i  =  0;  j  <  maxouts;  i  =  i  ♦  1] 

{ 

for  (j  =  0;  j  <  maxouts;  j  =  j  >  1) 


{ 

rd*at  Cl)  C  jl  =  -1  ? 
fd**at C i 3  C  j  3  =  -l  ; 

> 

> 

/♦-•-----------------read  default  blocx  delays-----------------*/ 

fscanfCrl,"4s",r>)  ; 

while  (strcnoCo, "ENO")  !=  0) 

{ 

f scanf C r 1 > "%d " , &numl )  ; 

for  (11  =  1;  11  <=  nuul;  11  =  11  t  l) 

( 

f  scant  (rl ,  "%d  %d  %d  %d",£x,  «ty,  &z)  ; 

if  (strc^DCo, s )  ==  0) 

< 

rdwatCxJCy]  =  v  ; 
fdmatCxHy)  =  z  ; 

> 

> 

If  (strc?o(o,s)  ==  03 
brea<  ; 

fscanf(rl,"%s",o)  ; 

> 

fclose(rl)  ; 

> 

/*— - - - - - - - - - - - - - </ 


/*--------- . -  —  INITIALIZE  Darsina--------------- 

/*  <IVI>  =>  INITIALIZE  J  <INITSTRJNG> 

/*  <INITSTRI?1S>  =>  id  =  nun  ,  <INITSTRING>  I  id  =  num  ; 
INK) 

{ 

1  n  t  f  1  a  a  ; 

flag  =  0  ; 
if  (skCiD  1=  1) 
oarseid(6)  ? 
while  (delimiter  1=  2 ) 

{ 

Darseid(naxxev)  ; 
if  (delimiter  !=  4) 
error(27)  ; 
find  id ( )  ; 

qetld(ro,*3)  .? 
if  (err. count  ==  0) 

< 

/*  fDrintf(wD,"depth(0)  =  deptn(O)  ♦  1  ;  \  n " )  ?  *  / 

fpri.ntf  (wg,  "  20")  ? 
if  (flag  ==  0) 

fbrintfCwa,"  21")  ; 

/ *  forintfCwo,"  oegintCO)  =  freet  ?  \ n " )  ;  */ 

else 

forintfC*a,"  22")  ; 

/*  forintfCwo,"  (* ( endt  CO) ) ) #  totr  =  freet  ;\n"  );  */ 


/*  oeointCO)  =  NULL  indicator 

/*  INITIALIZE  ends  with 

/*  '  =  '  expected  after  the  na-ne 
/*  synool  taole  index 
/*  initialization  value 


*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 


/*  allocate  storage  for  tstack  */ 

/*  forintfCwp,"  endttO]  =  fre*t  ?  \n");  */ 

/*  forintf(wo,"  freet  =  (*f reet ) . tntr  ?\n")  ;  */ 

/*  forintf(wo,"  ( *  (endt  C01 ) ) ,  t  Dt  r  =  MULL  ;  \n")  :*/ 
forintfCwa,"  23  24  25")  ; 

/♦  qenerate  code  */ 

/*  fprintf(*D,"  C  *  Cendt  C03 ) ) .  dpt  r  =  6(desct%d])  ?\n" ,  */ 

f  o.rlntf  (wq,  *  26  %d"  , 

symttsymid] .descno )  ; 

/*  fDrintf(wo,"  (*(endtt01))«newval  =  %s  ?\nw, token. buf)  ;  */ 

f Dr intf  (wq,  "  27  %s  "  ,  t oken.buf )  ; 
flag  =  l  ; 
fadvance(6)  ; 

> 

> 

> 

/* . - . */ 


/* . . ....  'printout'  oarsing-- 

/*  <PRI>  =  >  PRINTOUT  :  < i dstr I ng>  */ 

PSIO 
{ 

lnt  i,  1  ? 

DarseldC7)  ; 

1  =  0? 

while  (delimiter  !=  2)  /*  PRINTOUT  ends  with  */ 

{ 

parse id( maxkey)  ? 
findidC)  ? 
if  (err. count  ==  0) 
i 

for  (3  s  0}  i  <s  7  ?  J  s  ]  M  J 
{ 

if  (token. buf tl)  ==  '\0') 
break  ; 
else 
( 

/  *  forintf(wp,"syT»C%d]tnamet*dl  =  ' "  ,  i ,  j  )  ?  *  / 

/*  foutc( token. buf t j) ,wp)  ?  */ 

/*  fprintf (wp,"#  ;\n")  ;  */ 

forintfCwq,"  28  %d  %d  %c",i,  j , token. buf t j )) ? 
fadvance(4)  ; 

.  > 

> 

/*  fprintf(wp, Msym r*d) .index  =  \6 ; \n" , i , symt Csyml d] .descno )  ?  */ 

f orint f C  wa, M  29  %d  %d" , i , symt C svmid] . descno  )  ; 
f advance ( 3 )  ; 

1  =  1  +  1? 

> 

> 

/*  printf ("%-s\n",buff )  ;  */ 

/  *  forintf(wo,"sav_ write  =  0  ;  \  n  " )  ;  * / 

/*  forlntf(wo,,’nu‘n. print  =  %d  ?\n",i)  ;  */ 


/*  fprintfCwp,"  out. interval  =  1  ?  \  n  "  )  ;  *  / 

fprintffwa,"  30  31  %d  32°,  1)  ; 

{advanced)  ; 

> 

/* . . . . . . - . - . . . . 


- ..... - -STRING  COPYING  ROUTINE- 

strcpy(s,t)  /*  copies  s  =  t  */ 


char  *s,  *t  ; 

< 

while(*s++  a  *t  +  *) 

9 

> 

/I . . . 


</ 


*/ 


STRING  COMPARISON  ROUTINE------"--------------*/ 

/*  returns  zero  If  string  s  Is  equal  to  strina  t  */ 

StrcmoCS , t) 
cnar  s  f) ,  t  C)  ; 

< 

1  n  t  1  ? 


1  =  0; 

while ( s  Cl  3  ==  ttlJ) 

If  (SCI**)  ==  '\0') 
return  CO)  ; 
returnCsCl)  -  till)  ; 

> 

/% - - - - - ................ - 


- ...... ..CP-T  NFXT  ID  ROUTINE-----  -  —  —  —  —  —  —  —  —  */ 

getldCrx,  ernm)  /*  finds  the  next  Id  and  returns  It  In  token. Duf  */ 
Int  ernm  ;  /*  error  number  In  case  of  EOF  */ 

FILE  *rx  ? 

< 

lnt  1  ,  c,  flaa,  j  ; 


flag  a  0  ; 
delimiter  =  -1  ; 


1  =  0 


vhlleC (delimiter  <  1 

)  1  1 

(flaa  == 

0)) 

{ 

/* 

flag  =  t 

when  some  non  blan*k  char 

is 

*/ 

/* 

read  into  token  buffer 

*/ 

c  =  faetc(rx)  ; 

bufflbb]  s  c  ; 

/* 

buff  is 

the  80  character 

buffer 

for 

*/ 

bb  =  bb  ♦  1  ; 

/* 

printing 

the  entire  line 

after 

It 

is 

*/ 

if  (bb  >  78) 

/* 

read. 

bb  a  index  for 

buff 

*/ 

i 

If  (DrlnDflaq  ==  1) 

{ 

/*  prlntfC"  %-s\nH , huff )  ;  */ 


> 

bb  =  0  • 

> 

switch ( c) 

< 

case  '  0  : 
case  : 

case  : 

case  # : 0  : 
case  '  =  '  : 
case  : 

case  '('  ; 
case  '\n': 


deli-niter  =  -1  ; 
break  ; 

deli. -niter  =  1  ; 
b  r  e  a  *  ; 

delimiter  s  2  ; 
break  : 

deli-niter  =  3  ; 
break  ; 

delimiter  =  4  ; 
break  i 

deli-niter  =  5  ; 
break  ; 

deli-niter  s  6  ; 
break  ; 

if  (flag  1) 
deli-niter  =  7  f 


buffCbb-n  =  '\o' 


/*  flag  =  1  indicates  that  */ 
/*  so me  non  blank  character*/ 
/*  was  read  into  token. buf  */ 


if  (Drinoflag  ==  1) 

{ 

/*  printf  ( ■t-sSn" , buf f )  ;  print  the  line  and 

> 

/*  outout  errors  in  the  */ 
outerrorO  ;  /*  line  if  any,  */ 

bb  *  0  ;  /*  initialize  line  huff*/ 

break  ; 

case  EOF  :  or i n t f ( "^-s\n" , buf f )  ? 
err  or ( ernrc )  ; 


error ( 33 D  ; 

/* 

EOF  error 

*/ 

outermrO  ; 

exit.(O)  ; 

/* 

abort  the  orooram 

+  / 

break  : 

default  :  flag  =  l  : 

delimiter  =  0  ; 

> 

if  (delimiter  ==  o  ) 

{ 

if  (i  <=  6  ) 

< 

token. bufCil  s  c  ; 
i  *  i  ♦  l  ; 

> 

) 

) 

token. bufCiJ  =  #\0#  ; 


> 


*/ 
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/*- - - - ---FI  VO.rSKRM  PROCEDURE - - - - - 

/*  Token  =  max key  if  a  nonkeyword  name  is  encountered  else  it  is  */ 
/*  equal  to  the  index  of  the  keyword  in  the  keyword  taoie  */ 

f ind.tokenC ) 

< 

i  n  t  i  ? 

for  (i  s  0/  i  <  maxkey;  i  =  i  +  1)  /*  sequential  search  */ 

if  CstrciTiD  ( token. buf  # keyword  CD  )  ==  0  ) 


b  r  e  a  k  ; 

toknn  =  i  ;  /*  token  =  maxkey,  if  match  is  not  found  */ 

> 

/* - - - - - */ 


/* - - SINGLE  ID  PARSING  ROUTINE---- - - - - -*/ 

parseid(l) 

inti;  /»  i  =  to<en  number  to  be  comoared  to  */ 

< 

aetid  (ro#33)  ?  /*  find  the  next  identifier  */ 

f ind-tokenC )  ;  /*  find  token  number  */ 

if  Ctoknn  ==  maxkey) 

< 

findorimp  ; 

if  (orimid  <  orlm. count) 
error(25)  ? 

> 

if  Ctoknn  !=  i)  /*  identifier  of  type  'i#  */ 


errorCi)  ?  /*  expected,  */ 

> 

/* . */ 


/*  check  if  name  »=  function*/ 


/♦keyword  found  */ 


/♦---------------------FINDIO  (symbol  table  index)---------------*/ 

/*  finds  the  symbol  table  index.  An  error  "essaqe  is  generated  if*/ 
/*  the  name  does  not  exist  */ 

findidO 

{ 

int  i  ? 

for  (1  =  0;  i  <  sym. count;  i  =  i  ♦  1) 

if  (  strcmoc token. buf ,symt CD .name)  ==  0) 
break  ; 


(i  ==  svm. count) 

/* 

name  not  found  in  the  symbol 

table  */ 

error(28)  ? 

/* 

undeclared  name 

*/ 

symid  =  -1  ; 

> 


else 

symid  =  1  ; 

> 

/*- - - - - -- - - - ... - - - •/ 


— -fI^DDESC  Cdesc  table  Index)-—  —  --  ——-  —  -—--  —  */ 
/*  This  routine  is  used  in  conjunction  with  the  DEFINE  oarsina  to*/ 
/*  update  all  descriptors  usina  the  name  in  sbuf  with  the  deel-  */ 
/*  ared  parameters.  */ 

f inddes  c ( sbuf ) 
cnar  sbuf  C 9 1  ; 

< 

int  i  ; 

for  (i  =  lim;  i  <  dptr?  i  =  i  ♦  1) 
if  (strcmpCsbUf , desct Ci) . f un )  ==  0) 
break  ; 

11m  *  i  M  ? 


descid  =  desct Ci) .dnum  ; 

> 


/v. ......  .......... --  —  -update  desctable - - - - */ 

/*  This  routine  updates  the  descriptor  table.  */ 

/*  s  =  function  name  (type),  num  3  symbol  table  index  */ 

updesctfs,  num) 
char  s  C  9 ]  ; 
int  num  ; 

< 

strcpv(desct CdPtr] .fun,  s)  ? 


desct Cdpt r )♦ dnum  =  num  ? 
dotr  =  dptr  +  1  ; 

> 

/*....... - - - ... - - - — - - - - - - --*/ 


/*......—. - - - FiNDPRIM  (primitive  table  index)---------------*/ 

f indpr im( ) 

< 

int  i  ; 

for  (i  =  0;  i  <  prim. count;  1=1+1) 

if  (  strcmpC token. buf ,Drimt Ci] , nam2)  ==  0) 
break  ; 
primid  =  i  ; 

> 

/* - - - - . - . .  —  . -  — . -*/ 


/*« 

/* 

This 

rout  1 ne 

updates 

)L  TABLE  UPDATE---  — -------- 

the  symbol  table*  sym. count 

=  symbol 

*/ 

/* 

table 

index , 

desc.no 

s 

descriptor  number. 

*/ 

/* 

typ  = 

function  tyoe, 

0 

=  input,  -1  =  output,  -2 

=  internal 

*/ 

update ( typ) 
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int  tyo  ? 

< 

symt  (  s ym.count  )  ,  descno  =  desc.no  ; 
svmt  Csym.count ]  .  funcno  =  typ  ? 
strcoyC symt C sym. count] . name ,  to*en.buf)  ; 
sym. count  =  sym. count  +  1  ; 

> 

/i - - - - - — -- 


*/ 


/*----- . . coop:  GENERATION  (input  descriptors)------* - */ 

code.inDut  Ci) 

int  i  7  /*  i  s  desc.no  */ 

{ 

int  j; 

if  (err. count  ==  0) 

< 

/*  fprintf Cwo,"  descCld] .pfunc  =  read. input ; \n" , i )  ;  */ 

f  or int f ( wq , "  33  Id  0",i)  ; 

/*  forintfCwo,"  desc Cld] , oaram CO]  =  Id ; \n * , i , t oxen.buf CO] )  ;  */ 
jshashfCtoKen.buf)? 
fprintf (wq,"  1  Id  n  %d",i,  j )  ; 

/*  parameters  0  and  1  contain  the  input  line  name  */ 

/♦  forintfCwo,"  desc Cld) . param C2]  =  l?\n",i)  j  */ 
fprintfCwq,"  1  %d  2  1  "  #  i  3  ; 
fadvance(15)  ; 

> 

> 

/< . . . . . . . . . */ 


/«---- - - - ---ERROR  MESSAGE  ROUTINE----------------------*/ 

er rmessageC i ) 

inti;  /*  is  error  number*/ 

{  /*  err.otr  =  qlobal  Indicating  error  table  index  */ 

printf ( "  -ERROR-")  ; 
swi tcnc i) 

< 

case  0  :  print f ("' 'MODULE'  expected,  Is  found\n", 
errt Cerr.ptr) .nm)  ; 

brea<  ; 

case  1  :  orintfC"  ' INPUTS '  expected.  Is  found\n", 
errt  Cerr.ptr) . nm)  ; 

breax  ; 

case  2  •  orintfC"  'OUTPUTS'  expected,  Is  found\n", 
errt Cerr.ptr ). nm)  ; 

b  r  e  a  <  ? 

case  3  :  orintfC"  'TYPES'  expected.  Is  foundVn", 
errtCerr.ptrKnm)  ; 

b  r  e  a  x  ; 

case  4  :  orintfC"  '('  expected,  Is  foundVn", 
errt  Cerr.ptr) .nm)  ; 

b  r  e  a  *  ; 

case  5  :  orintfC"  '>'  expected,  Is  found\n", 
errtCerr.Ptri.nm)  ; 


case 

6  : 

b  r  e  a  <  ; 
orintf  C 

case 

7  : 

brea <  ; 
orintf  C 

case 

9  : 

break:  ; 
printf  C 

case 

25: 

break:  ; 
orintf ( 

case 

26: 

break:  ; 
print f  C 

case 

27: 

break:  ? 
printf  C 

case 

28: 

break  ; 
printf ( 

case 

29: 

break  ; 
printf C 

case 

30: 

break  ; 
printf ( 

case 

31 : 

break  ; 
printf ( 

case 

32: 

break 
printf C 

case 

33  : 

break 
orintf C 

case 

34: 

break 
orintf ( 

case 

35: 

break  ; 
or int f  C 

case 

36: 

break  ; 
o  r  i  n  t  f  ( 

case 

37: 

break; 
printf  C 

case 

38: 

break  ; 
orintf  C 

case 

39: 

break  ; 
orintf ( 

case 

40: 

break  ; 
orintf  C 

case 

41 : 

break  ; 
orintf C 

case 

42: 

break  ; 
or intf  ( 

break  ; 

'INITIALIZE'  expected,  *s  found\n", 
errtferr.ptr3.nm)  ; 

'PRINTOUT'  expected,  %s  tound\n" , 
errt  Cerr.ptr 3  ,nm) 

'DEFINE'  expected,  found  ,%s  \n" 

, errt Cerr.Dtr 3 .nm)  ; 

name  %s  is  a  keywor d\n " , 
errt  Cerr.ptr] .nm)  ? 

count  =  %d,  >>COMPILATION  d i s cont i nu ed\n " , 

err-count ) ; 

'='  expected  after  %s\n", 
errt  Cerr.ptr 3 • nm)  ? 

%s  is  undeclared\n" , 
errtCerr.ptr3.nm)  ? 

'('  expected  after  %s\n", 
errt Cerr.ptr 3 .nm)  ; 

*s  is  undefined  f unct ion\n" , 
errt Cerr.Dtr] ,nm)  7 

expected  after  %s\n", 
errt  Cerr.ptr] .nm)  ; 

')'  expected  after  %s\n", 
errt  Cerr.ptr] .nm)  ; 

unexpected  EOF\n*); 

missino  FN0\n")  ; 

Incorrect  *  of  arqs,  on  LHS  %s\n" 

,  errt f err. Dtr] .nm)  ; 

in  syntax,  %s  unrecoanized  \n" , 
errt  Cerr.ptr] .nm)  ? 

count  =  10,  >>Compi la ti on  discont t nued\n" ) 
r  0,  *  *  *  END  OF  COMPILATION***^"  )  7 

1st  DELAY  index  is  >  lirr\n"); 

2nd  DELAY  index  is  >  lim\n"); 

missina  ( \  n  "  )  ; 

misslna  INITIALIZED")  ; 


case 

43  : 

orin  tf ( 
break  ; 

case 

44: 

orlntf ( 
break  ; 

case 

45: 

or intf ( 
break? 

case 

46: 

or intf  ( 
break  ; 

case 

47: 

orlntf ( 
break  ? 

case 

45: 

printf ( 
break  ? 

case 

49: 

print f ( 
break  ? 

case 

50; 

or intf ( 
break  ? 

missing  ' ;  '  \  n  "  )  ; 
undefined  f unction\n" )  ; 
missing  TYPESNn")  ? 
hissing  >  \n  " )  ; 
missing  #)'\n"); 
missing  DEFINE\n" ) ; 

incorrect  #  of  inout  arguments  in  call\n")? 
incorrect  *  of  out  arguments  in  call\n")? 


err. count  =  err. count  t  1  ; 
if  (err. count  >  9) 

{ 


error(37)  ? 
outerrorO  ; 
exit(O)  ? 


> 


/* 


*/ 


- ............ OUTERP OR  ROUTINE  — —  —  —  —  —  —  — 

/*  This  routine  outputs  all  errors  encountered  in  a  line  after  */ 
/*  entire  line  has  been  read,  */ 

outerror C ) 

< 

int  I? 

1  =  0; 

while  (err.Ptr  >=  0)  /*  if  error  count  for  a  line  is  >  0  */ 

i  /*  print  all  errors  encountered  */ 

errmessage(errtCi). errno)  ? 
i  =  i  ♦  1  ; 

err.otr  =  err.Ptr  -  i  ; 

> 

> 

/*.. - - - - - ...... - - - - - - - 


/*-- - - - - - -ERROR  ROUTINE------ - -  —  —  — - - - -*/ 

/*  This  routine  enters  the  error  number  and  the  name  of  the  wrong*/ 
/*  identifier  in  the  errt  (error  table).  The  errors  are  orinted  */ 

/ *  after  the  whole  line  has  been  scanned,  */ 

error(i) 

int  i  :  /*  i  =  error  number  */ 

< 

err.Ptr  =  err.Ptr  +  1  l  /*  error  count  for  one  line  */ 

errt C err.Ptr ), errno  =  i  ;  /*  errno  =  error  number  */ 


strcDvCerrr  Cerr-Dtrl  .nm, token. ouf)  ; 

/*  copy  name  of  wrong  identi.*/ 


> 


/* 


*/ 


/*- tirs  tip 

/*  This  routine  scans  tne  user  program  for  any  expansion  requests*/ 
/*  if  found,  thev  are  Dut  on  a  exot  stack  alona  with  their  func  •*/ 
/*  Mote  that  func  no,  may  not  be  known  at  this  time  */ 

f irstpC ) 

< 

extern  int  maxoid? 

int  i,j,option,tDid, found: 

char  tempi (81,  target(8l; 


rl  =  foDen("oir/r"); 

searcher  1 ,  rl,  -l,  9,  0,48)  ;  /*  search  for  DEFINE  (9)  */ 

/*  48  a  missing  DEFINE  error  */ 
getid(rl,42)  ;  /*  42  =  missing  INITIALIZE  error  */ 

find.tokenO  ; 

while  (toknn!=6)  /*  search  for  EXPANO  */ 

< 

if  (toknn  21)  /*  EXPANO  */ 

{ 


sf DundsO  ? 

getid(rl#33)  ;  /*  this  is  what  we  expand;  33  s  EOF  error  */ 

strcDy ( exDt Cexocount J . f name ,  tPken.buf)  ? 

strcoy ( temoi , token.ouf ) ;  /*  save  name  for  later  */ 

exDCDuntt+; 

getidCri , 33) ;  /*  how  far  do  we  expand?  */ 

f indor im( ) ; 

if  (or imid<prim. count )  /*  a  valid  Drimitlve?  */ 

{ 

strcoy (target ,Drimt CDrimidl ,nam2) ;  /*  yes,  save  it  as  is  */ 

tpid=Drimid? 

> 

else 

i 

fDundsO;  /*  no,  what  type  is  it?  */ 

for  ( 1=0 ;  i<=maxpld;  !♦♦) 

< 

1  =  0; 

while  (typeiistCi) CJJ .usedssl) 

{ 

if  ( stremp ( token. buf , typelist C lit  1 1 . sname) ==0 )  /*  maten?  */ 

{ 

strcpyC taraet , orimt Ci3 • nam2 ) ;  /*  primitive  name  */ 

tpid=l;  /*  primitive  id  */ 

f ound=l ; 
break ; 

> 


else 

1++; 

>  /*  end  while  */ 
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If  (found==l) 
o  r  e  a  < ; 

>  /*  end  for  */ 

1 f  . ( ( i>maxoi d )  &  s,  (found==0)) 
error  C  44) ? 

>  /*  end  else  */ 

check-deeoer ( tempi, tPid, target)? 

If  C s f  ound==0 ) 
i 

Dr intf ( "  I  couldn't  find  %s  in  any  of  the  circuit  descr Id t 1 ons ■ \n " 

target)? 

or int f ( " \n\nDo  you  wish  to:  \n\n")j 
orintfC"  1,  Continue  anyway\n")7 
print  £ ( "  2.  Give  up\n\n")? 

orlntf ("Enter  the  number  of  your  selection  ")? 
scanf("%d",soption)? 
if  CoPtion==2) 
exit (0) ; 

> 


>  /*  end  if  to>cnn  =  21  */ 

getid(rl#42)? 
flnd.tokenO? 

> 

multi* mod( ) } 
fclose(rl); 

> 

/*-- - - - ------ 


/*  look  for  INITIALIZE  */ 

/*  end  while  toknn  */ 

/*  do  multimodule  case  after  */ 
/*  enumerated  EXPANDS  */ 

- - - ... - - - */ 


/t. .............. ......... second p( 

/*  second  nass  routine,  expansion  is  carried  out  In  this  routine  */ 
/*  First  the  specs  for  user  orooram  are  cooled  to  P1EXP.  The  func*/ 
/*  t  for  function  to  be  expanded  is  determined  at  the  same  time.  */ 
/*  Next#  the  function's  description  Is  copied  to  SCSI.  The  user  */ 
/*  orogram  is  searched  for  any  call  to  funtion  to  be  exoanded,  */ 
/*  The  code  from  SCSI  is  substituted  at  this  ooint.  The  exoanded  */ 
/*  circuit  is  stored  In  SCR2,  Finally  P1EXP,  SCP2  are  aooended  */ 
/*  along  with  the  simulation  specs  from  user  program.  */ 


secondp ( expnum ) 

int  expnum  ?  /*  expnum  =  expand  table  index  */ 

{ 

int  i,  j  ? 
count  =  n  ; 

/♦--search  for  TYPES  in  user  prog  (cooy  to  P1EXP)------------- - *  / 

searenc  rl,  wl,  -1  ,  3,  1,45)  ?  /*  45  =  missing  TYPES  error  */ 


/♦-..-------search 

while  (1) 

{ 

aetid(rl,41)  ? 
f lnd. token ( )  ? 


If  function  to  he  exoanded  is  a  TYPE----------*/ 

/*  search  function  to  be  exoanded.  Replace  it*/ 
/*  with  x's.  Find  its  fnum  and  out  in  expt  */ 
/*  41  s  missing  <  error  */ 


if  (toknn  ==  4  )  /*  then  break  */ 

break  ; 

pdelim(wl)  ;  /*  print  to  P1FXP  */ 

if  (toknn  !=  8)  /*  function  name,  not  an  INTERNAL  */ 

< 

findDrimO  ; 

if  (Drimid  >=  prim. count) 
e  r  r  o  r  (  3  0 )  ; 

while  (1)  /*  search  function's  name  in  TYPE  list  */ 

{ 

getid(rl,43)  :  /*  43  =  missinq  ;  error  */ 

if  ( strcmD ( token. buf ,  expt Cexonum] . frame )  ==  0) 

< 

expt CexDnum] # f num  =  Drimid  ; 
strcDyC token. buf,"XXXXXXXn)  ? 

> 

DdelimCwn  : 

if  (delimiter  ==  2)  /*  if  then  end  of  TYPE  list  */ 

break  ; 

>  /*  end  type  search  */ 

> 

else  /*  INTERNALS  */ 

< 

search ( rl ,  wl,  2,  -1 ,  1,43);/*  print  internals  as  is  */ 

/*  2  =  delim  (error  43)*/ 

> 

>  /*  end  TYPES  */ 

-—-find  Drimid  for  the  function------------------*/ 

if  ( exot Cexpnum] , f num  ==  -1)/*  if  no  types, then  find  function  **/ 
{ 

strcDy( token. bu£,exot Cexpnum! .frame)  ; 
findDrimO  ; 

if  (orimid  >=  prim. count) 
error(30)  ; 
else 

exot C exonum] . f num  =■  Drimid  ; 

> 

/* - - - - - - - - - - ....... - 

fclose(rl)  ; 

/*...... - .......find  function  in  1  ih  — —  --*/ 

r2  *  f open  C " 1 ib 1 " , "r " )  ;  /*  library  */ 

si  =  f open ( "scr 1 " , "w" )  ;  /*  scratch  file  for  function  */ 

while  (1)  /*  find  the  function  to  be  expanded  in  the  lib  */ 

< 

qetid(r2,44) ;  /*  44  =  function  not  found  in  lip  */ 
find.tokenC)  ; 

if  (toknn  ==  0)  /*  MODULE  */ 

< 

qetid(r2,33)  ; 

if  ( s trcmo ( token. buf ,  primt C ( expt CexDnum) . f num ) ) • nam2 )  ==  0) 

( 

break  ; 

> 


) 

> 

/♦•-----------------function  found-------------------------------*/ 

/♦--------storp  inputs,  outputs  on  stacks--- - - - 

ge t Id ( r 2 , 33 )  ; 
in count  =  0  ; 
wnile  (1) 

< 

oetid(r2,43) 
f ind.tokenC ) 
if  (toknn  == 
break  : 
else 
< 

strcpydnstackCin  count]  ,  token.buf )  ; 
incount  =  incount  ♦  1  ; 

> 

> 

outcount  =  0  ; 
while  (1)  /*  OUTPUTS  */ 

{ 

getid(r2,45)  ?  /*  45  =  missing  TYPES  error  */ 

find.tokenC)  ? 

if  (toicnn  ==  3]  /*  TYPES  */ 

breaic  j 
else 
( 

strcDyCoutstack (outcount) , token. buf)  ; 
outcount  a  outcount  +  1  ? 

> 


/*  INPUTS  */ 

;  /*  43  =  ^issino  ;  error  */ 

• 

f 

2)  /*  OUTPUTS  */ 


> 


/*---- - - - - - TYPES  should  be  tacked  by  function  name---------*/ 

/* . save  types  on  a  typstack------------------------*/ 

tyocount  =  0  ; 
while  Cl) 

( 

oetid  C  r 2  #  41 )  ;  /*  41  =  missino  {  error  */ 

find-token()  ; 

if  (to<n n  ==  4)  /*  <  */ 

break  ; 
else 
< 

if  Ctoknn  ==  8]  /*  INTERNALS  */ 

{ 


pdelimCsl)  ;  /*  internals  are  cooled  on  to  SCR1*/ 

search ( r2 , s l , 2 , -1 , 1 , 43 ) ; /*  so  that  they  can  be  reproduced*/ 

/*  'occurance'  times  at  the  end  */ 


> 

else  /*  TYPE  declarations  */ 


< 

p  d  e  1 1  m  ( w  1 )  ; 
while  (1) 

< 


ge t id ( r2 , 43) 


/*  function  types  are  tacked  by  the  name  */ 
/*  of  the  function  to  be  exoanded  */ 
/*  They  are  saved  on  a  stack  so  that  it  */ 
/*  can  be  determined  In  Its  desc.  If  a  */ 
/*  type  Is  used  (will  be  tacked  similarly)*/ 
;  /*  43  =  missing  ;  error  */ 
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strcpyC tyostack Ctyocount3  ,  token. buf)  ; 
tyocount  r  tyocount  ♦  1  ? 

for  (i  *  0>  1  <  5;  1  *  i  ♦  1) 

{ 

if  (token. buf Ci3  ==  'NO') 
breaK  ; 

) 

for  (j  =  i?  j  <  5?  j  r  j  ♦  l) 
token. bufC13  =  '  '  ; 

token. bufC53  =  print  CexDt  Cexpnum]  •  f  num]  ,naTi2  C03  ; 
token. bufC6)  r  primt  Cexot  Cexonum)  .f  n  u  m  3  .naT2  Cl]  ; 
token. bufC7)  a  'NO'  ; 
odelim(wl)  ; 

if  (delimiter  ==  2)  /*  ;  */ 

break  ; 

> 

> 

> 

> 

forintf  (si ,  "  {  Nn" )  ; 
count  =  o  ; 

- - - - - - */ 


while  (1) 

( 

search ( r2 


if  (toknn 
break  ; 


write  structural  desc.  to  SCSI 


Sl,  4,  5,  1,46)?/*  4  r  's'  ,  5  =  ')'  */ 
/*  write  structural  description  to  scr  file  */ 
/*  Types  are  tacked  by  function's  name  */ 

=  5) 


aetid(r2,46)  ?/*  46  =  mlssina  >  error  */ 
ftvoeO  ? 

if  (ft  !=  0)  /*  Indicates  tyoe  declared  */ 

{ 

for  (i  =  0?  i  <  5?  i  =  i  ♦  1) 

( 

if  (token. buf (13  ==  'NO') 
break  ? 

> 

for  (1  =  i?  j  <  5?  j  =  j  t  1) 
token. bufCjJ  r  '  '  j 

token. bufC53  r  Drimt Cexot Cexonum) . f num] ,nam2 C  0  3  ; 

token. bufC6]  =  print Cexot Cexonum] . f nun] ,na*2 C 1 3  ; 


token. buf(7]  r  'NO'  ? 

> 

pdelim(sl)  ; 

search(r2,  sl,  5,  -1,  1,47);  /*  5  =  ')'  */ 

/*  outputs  */ 

count  =  0  ; 

> 

f closeC  wl  )  ; 


*/ 
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fclose(sl)  ; 
fclose(r2)  ? 
count  =  0  ; 

cexoand ( expnum) ?/*oan d  the  primitive  whenever  It  occurs  in  cKt 

) 

/* . . . . - . - . . . . ------- 


V 

*/ 


- ode lim( )----- . . . . . . . . V 

/*  prints  delimiter  on  the  file  */ 
pdelim(wx) 

FILE  *wx  ; 

{ 

f Dr int f ( wx , "  Is  " , t o<en„buf )  ? 
count  =  count  +  3  ; 
switchCdelimiter ) 

< 

case  9  :  fprintf(wx,"  " )  : 
breaK  ; 

case  7  :  fprintf(wx,"  \n")  ; 
count  =  0  ? 
breaK  ; 

case  6  :  fprintf(wx,"  ( " )  ; 
breaK  ; 

case  5  :  if  ( or int_s elects=0 ) 

< 

f printf ( *x , "  ) "  ) ; 
b  r  e  a  <  ? 

> 

else 

{ 

f  printf  C  wx , "  )  ;  \n")? 

count=0; 

breaic? 


case 

4 

J 

f printf ( w  x » " 
b  r  e  a  ic  ; 

=  ")  ; 

case 

3 

• 

fprintf(wx, " 
brea<  ;  . 

:")  ; 

case 

2 

• 

• 

f printf (wx, " 

;\n") 

count  =  0  ? 
breaK  ? 

case 

1 

• 

• 

fprintf (wx, " 
brea<  ; 

,")  ; 

) 

if  (count  >=  7) 

< 

f printf (wx , "  \n")  ? 
count  =  0  ; 

) 

> 

. . . 


*/ 


1  23 


/*---- - — 

f cony ( r r ,  ww) 


f copy( ) 


FILE  *  r  r ,  *ww  ; 

{ 

int  c  ? 

while  C(c  =  qetc(rr))  1=  EOF) 
putc(c,ww)  ; 

> 

. . . . */ 


co pv.no end ( inf ,  outf ) 
FILE  *inf,*outf; 

( 

int  pdone; 


•coov.noendC ) • 


■  */ 


pdone=0 ; 
or int.select=l ; 
getidCinf) ; 
f ind.tokenC ) ; 
while  (odone==0) 

{ 

switch  Ctoknn) 

< 

case  3: 


/*  read  the  token  from  file  */ 
/*  see  what  it  is  */ 
/ *  auit  when  we  see  END  «/ 


pdelim(outf ) ; 

/* 

write 

the 

TYPES  token 

*/ 

getidCinf ,33)? 

/* 

and  get  the  next  one 

*/ 

f ind.tokenC ) ; 

if  Ctoknn==A) 

< 

/♦ 

check 

for 

no  TYPES 

*/ 

f printf Coutf ,  "  ; 
> 

or ea< ; 


\n");  /*  no  types,  start  new  line  */ 


case  6:  or int.select=l ; 

odel imCoutf ) ? 
getidCinf, 33); 
f  1  nd.tokenC )  ; 

if  ( to<n n  =  =  7 ) 

for int f C outf ,  * 
break; 


/*  write  the  INITIALIZE  token  */ 
/*  check  for  sequence  of  */ 

/*  INITIAL;;  PRINTOUT:  */ 

/*  is  this  PRINTOUT?  */ 

\n")?  /*  yes,  start  new  line  */ 


case  9:  orint-select=0; 

odelimCoutf); 
aetidCinf ,33); 
f ind.tokenC ) ; 
if  Ctoknn==6) 

< 

fDrlntf  (outf/  ; 
pdelimCoutf ) ; 
getidCinf ,33): 
f ind.tokenC ) ; 
if  (tofcnns=7) 

fprintf (outf , ' 

> 

break ; 


/*  write  the  DEFINE  token  */ 

/*  check  for  sequence  of  */ 

/»  define:;  initial:;  printout:  */ 

/*  is  this  INITIAL?  */ 


\  n  "  )  ; 


/*  yes,  print  new  line  */ 
/*  then  print  INITIAL  */ 


/*  is  this  PRINTOUT?  */ 

;  \n");  /*  yes,  print  new  line  */ 


case  20:  Ddone=l; 
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break 


default:  ode  1 i m ( ou t f  ) ;  /*  write  the  token  */ 

oetid(inf,33);  /*  and  get  the  next  one  */ 

find.tokenO; 

break; 

>  /*  end  switch  (toknn)  */ 

>  /*  end  while  (toknn)  */ 

print. select=0 ; 

) 

. - . ----- . . . . V 


. . REVERSEO . . . . */ 

reverse  Cs) 
char  sH  ; 

< 

int  c ,  i,  j  ; 

for  (1  3  0,  jrft;  i  <  j;  !♦«►,  j--) 

{ 

c  =  sen  ? 
sen  sCj]  ; 
sCj]  =  c  ; 

> 

> 

/*---- . . . . . . «/ 


/* . - . . —  --itoaC) . . V 

itoa(n,  s) 
char  st)  ; 
int  n  ; 

< 

iht  i  ; 

i  =  o  ; 
do  1 

s  r i s  n  %  10  ♦  '0'  ; 

>  while  f  C n  /r  10)  >  0)  ? 

reverseCs)  ; 

> 

/*-- - - ........ - ...... - --- - .............. - -?/ 


- ............ ft ype C ) - - ............ - -...*/ 

/*  It  finds  If  a  type  for  the  function  name  in  the  primitive's  */ 

/*  description  has  been  declared,  ft  =  1  indicates  this  */ 

f  tyoeO 

< 

int  i  ? 

ft  =  0  ; 

for  (i  =  0;  i  <  typeount;  i  =  i  ♦  1 ) 

< 

if  CstrcmpC token. buf ,  typstackCU)  ==  0) 

{ 

ft  =  l  ; 
break  ; 
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> 


> 

> 

/*--- 


*/ 


-----cexpand 

cexpand ( exnum )  /*  expand  primitive's  occurance  */ 
lnt  exnum  ;  /*  exnum  =  expand  table  Index  */. 

{ 

lnt  l  ; 

s2  s  f open ( " scr 2" , "w" )  ?  /*  expanded  desc  */ 

ri  =  fonen("onN,  "r")  ;  /*  user  proa  */ 

occurance  =  0  ;  /*  *  of  times  call  to  function  is  made  */ 

/*  Internals  will  be  duplicated  tnls  #  */ 

searchC r 1 ,r 1 , -1 , 4 , 0 , 4 1 ) ;  /*  find  circuit  description  */ 

/*  4  =  <  */ 

/* . . V 

-skip  =  0  ? 
while  (1) 

{ 

ckt.line ( &out l count ,  r 1 , out  1  stack ,  Sinlcount,  inlstack,  &skip)  ; 

if  (found. end==l )  /*  find  an  ENDSWAP  while  in  cktline?*/ 

< 

found. endsO;  /*  sure  did,  set  up  for  the  next  one*/ 

f or lnt  f ( s2 , "  ENDSWAP  ;  \n");  /*  write  the  keyword  onto  SCR2  */ 

> 

if  (f ound.start==i )  /*  find  a  SWAPLIN  while  in  cktllne?  */ 

( 

f ound.st art=0 ;  /*  yes,  aet  ready  for  the  next  one  */ 

forintf(s2,"  SWAPLIN  ;  \  n  H  ) ;  /*  write  the  keyword  onto  SCR  2  */ 

> 

if  CskiD  =3  1 ) 
break  ; 

/* . . - . */ 

/♦--------------------print  sa^e,  or  substitute  code-------------*/ 

if  ( s trcmo ( sa vf unc ,  exot  [exnum] • f name )  ==  0) 

( 

if  (outlcount  1  =  outcount) 
error(50)  ; 

if  (inlcount  i=  incount) 
error(49)  ; 

it  (err. count  ==  0) 

< 

substituteO  ;  /*  substitute  the  primitive's  code  */ 

occurance  =  occurance  ♦  1  ; 

> 

> 

else  /*  print  the  code  as  is  */ 

< 
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for  fl  =  0;  i  <  oat  1  count  ;  i  =  i  ♦  l) 

{ 

strcpyC token-nuf ,  outl stack  f  i  ]  )  ; 
delimiter  =  1  ;  /*  ,  */ 

if  (i  =  =  ( oat  1  count -1 ) ) 

delimiter  =  4  ;  /*  s  */ 
odelim(s2)  ;  /*  SCR2  */ 

> 

strcpy  (token. buf  ,  savfunc)  ; 
delimiter  =  6  ;  /*  (  */ 

Ddel im C s 2 )  ; 

for  (i  a  o;  1  <  inlcount;  1=1+1) 

{ 

str coy ( token. buf ,  inlstack  Ti] )  ; 
delimiter  =  1  ; 
if  ( i=  =  (ini coant-1 ) ) 
delimiter  =  5  ;  /*  )  */ 

Pdellm(s2)  ; 

> 

count  =  0  ; 
fprintf (s2, "  :\n")  ; 

>  /*  end  else  */ 

> 

fclose(s2)  ; 

> 

/% - - - - -*/ 


--substitute ( ) - -- - ------ - «/ 

/*  copies  function's  code  from  si  to  s2.  Internals  are  tacked  by  */ 
/*  occurance  number  */ 
substitute ( ) 

< 

int  i,  skipl  ; 

si  =  foDenCscrl",  "r")  ;  /*  function's  description  */ 

search (s 1  ,  s i , -1  ,  4,  0,41)  ;  /*  find  description  */ 

/*  4  =  */ 

----OUTPUTS- 

skipl  =  0  ; 

*hile  (1) 

{ 

ckt.ll ne C iout 2count ,  si,  out2stack,  &in2count,  in2stack , Sskipl ) 

if  (skipl  ==  1) 
break  ; 


/♦-------------------write  to  SCR 2  (s2)------------- 

/* input s/output s  are  replaced  by  corr espondino  names  from  in/outl*/ 
for  (i  =  0;  1  <  ou t 2coun t ;  i  =  i  +  l) 

( 

foutorder(out2stack(i])  ? 
if  (outorder  i=  -1) 

( 
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strcoy (to^en.buf ,  out  1 s tac* Coutorder ) )  ; 

> 

else 

< 

finorder(out2stac*Cil)  ; 
if  (inorder  1=  -1  ) 

( 

strcpy(to<en-buf,  inlstacfcCinorder])  ; 

> 

else 

tacK(occurance,out2stac)c  [i] )  ; 

> 

delimiter  =  1  ; 

if  (i  sa  Cout2count  -  l)) 

delimiter  =  4  ;  /*  =  */ 

pdelim(s2)  ; 

> 

strcpy ( token-buf ,  savfunc)  ? 
delimiter  =  6  ;  /*  (  *  / 

pdelim(s2)  ? 

for  (i  =  o;  i  <  in2count;  i  =  i  ♦  1) 

( 

finorder(in2stac*fi])  ; 
if  (inorder  i=  -1) 

< 

strcov( to<en.buf ,  ini  stactc  Cinorder  J  )  ; 

else 

< 

foutorder(in2stacf<fi])  ; 
if  (outcrder  1=  -1) 

( 

strcpy ( toKen.buf ,  out l s tac* Coutorder ] )  ? 

> 

else 

tacfc(occurance,in2stack  C 1 1  )  ; 

> 

delimiter  s  1  ; 
if  (1  ==  (in2count  -  1)) 
delimiter  =  5  ;  /*  )  */ 

pdelim(s2)  ; 

) 

fprintf(s2,"  ;\n")  ; 
count  =  0  ; 

>  /+  end  wnile  */ 

f close ( s l )  ; 

} 

/% . . . .  - . . . . — . . . */ 


foutorder(s) 
char  sH  ; 

< 
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i  n  t  i  ; 

for  (i  =  0;  1  <  outcount?  i  =  i  *  1 ) 

( 

if  (stremoCs,  outstac* Ci) )  ==  0) 
b  r  e  a  <  ; 

> 

if  (i  >=  outcount) 
outorder  =  -1  ; 
else 

outorder  =  i  ? 

> 

. . - . . 


-----------finorderO 

f inorder ( $ ) 
char  sU  ; 

< 

int  i  ; 

for  Ci  =  0;  i  <  incount?  i  =  i  +  1) 

< 

if  (strc^oCs,  ins  t  acv:  C  i ) )  ==  0) 
breax  ? 


> 

if  (i  >=  incount) 
inorder  =  -1  ; 
else 

inorder  =  i  ? 

> 

/*---- - - - - - - - - - - - - - - - */ 


------- C)ct.line()  . . V 

/*  This  routine  reads  one  line  of  circuit  description  and  stores  */ 
/*  inouts,  outputs  in  orooer  arrays  */ 

cXt.line ( oocoun t ,  rx,  oostacX,  iicount,  iistacx,  sxipl) 
int  ^oocount,  *iicount,  » s < i p 1  ? 

FILE  *rx  ? 


char  oos  tacx  C )  C8J  ,  iistacKC) C«)  ? 

< 

/*  Gutouts  */ 

*oocount  =  0  ? 

while  (1)  /*  out  outputs  on 

< 

qetid(rx,46)  ;/*  46  =  hissing  > 
f ind.toXenC )  ? 

if  C  t o*nn  =  =  24 ) 

< 

found.end=l? 

getid(rx,46); 

find.toXenC); 

> 

if  ( t o<nn==23 ) 

{ 

found. start=l ? 


out  stacx  */ 
error  */ 

/*  did  we  find  an  ENDSrfAP?*/ 

/*  yes ,  tell  CEXPA'JD  */ 

/*  qet  the  next  toxen  */ 

/*  and  see  what  it  is  */ 

/*  find  a  SWAPLIN  too?  */ 

*/ 


/*  ves,  tell  CEXPANO 


getid(rx,4h)? 
f lnd_token( ) ; 

) 

if  (toknn  ==  5)  /*  }  */ 

< 

*skioi  =  1  ; 

break  ; 

> 

strcoy (oostack C*oocount]  ,  token. buf)  ; 

♦oocount  »  *oocount  ♦  1  ; 
if  (delimiter  ==  4)  /*  =  */ 

break  ? 

>  /*  end  while  outputs  */ 

. . — - ................... - - - -♦/ 

if  ( (*skipl )  ! =  1) 

< 

getid(rx,33)  I  /*  function  name  */ 

strcpy(savfuncr  token. buf)  ; 

/♦ . ----INPUTS - - - - */ 

♦licount  s  0  ; 
whiled)  /*  inputs  */ 

< 

qetid(rx,47)  ;  /*  47  =  missing  ')'  error  */ 

str cpy ( iistack [*i icount) ,  token. buf)  ; 

♦iicount  =  Micount  ♦  1  : 
if  (delimiter  ==  5)  /*  )  */ 

break  ; 

> 

> 

) 

/*- - - - - - - - - - - -</ 


/*--- ----------------search 

search(xi,  xo,  delm,  tokm,  fq, ernum) 

FILE  *xi,  *xo  ? 

int  delm,  tokm,  fg,  ernum  ; 

{ 

while  (1) 

{ 

getid( xi , ernum  )  ; 
if  (fq  ==  1) 

{ 

pdelim(xo)  ? 
if  (delimiter  ==  5) 

fprintf (xo, "  ?\n")  ; 
count  =  0  j 

) 

> 

if  (delimiter  ==  delm) 
break  ? 

find-tokenO  ; 
if  (toknn  ==  tokm) 


> 


break 


> 

. . . 


. tackC) . . . . --- . . 

tackCocc, iobuf f ) 
int  occ  ; 
char  iobuf f  C 8 ]  ; 

{ 

mt  i,  1  ; 

strcpyC token. buf ,  iobuff)  ; 

for  (i  *  0;  i  <  ?|  i  *  i  M) 

< 

If  ( token. buf  C 13  rs  '\0') 
break  ; 

> 

for  (j  *  i;  j  <  7;  j  a  j  ♦  i) 
token.bufCj)  =  0  #  ; 
token.buf  C7)  a  '\0'  ? 
reverse ( token.buf )  j 
itoaCo cc,  token. but)  ; 

> 

/* . - . . */ 


....... --multi. mod( 

/*  This  routine  handles  sub  modules.  All  sub-modules  are  tacked 
/*  to  the  library  (STRUC)  in  the  front.  Also  expand  table  is 
/*  incremented  for  each  sub-module, 
mul  t  i.'mod  ( ) 

{ 


lil  =  f openC "llbl " , "w" )  ? 
whileCl) 

{ 


qetid(rl,34)  ;  /*  34  =  missing  END  error  */ 

find-tokenC)  ? 
if  ( toknn  =  =  20)  /*  END  */ 

break  ? 

if  (toknn  =a  0)  /*  MODULE  */ 

< 


pdelim(lil)  ; 

getid(rl,33)  ?  /*  sub  module  name  */ 

strcpyCprimt (prim. count) .nam2 ,  token. buf)  ; 

strcoy(exptCexpcount).fname,  token.buf )  ; 

expt  (expeount) . fnum  =  prlm.count  ; 

prim. count  3  prlm.count  1  ; 

expeount  a  expeount  *►  1  ; 

pdelim(lil)  ; 

search ( r 1 ,  lii,  -1,  5,  1,46);  /*  5  a  >  */ 


> 


> 


tl  s  f openC "struc" , "r" )  ; 
f copy ( t 1 r 1 i 1 )  ; 


*/ 

*/ 

*/ 

*/ 
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fciose(tl)  ; 
fclose(rl)  ; 
fciose(lil)  ; 

> 

/* . . . . . . . . — - */ 


/it..................... f  a<j  vance  () 

f advance ( numra ) 
int  numm  ; 

< 

filecount  =  filecountf  numm  ; 
if  (filecount  >  22) 

< 

filecount  =  0  ; 
fprintf(wq,"  \n")  ; 

} 

> 

/* . . - . 


*/ 


*/ 


/» . . - . —  —  hashf  C ) - - - - - - %/ 

hashf(s)  /*  finds  hash  value  for  string  s  */ 
char  *s; 

( 

int  hashval  ; 

for  (hashval  »  0;  *s  Is  #\0'  j) 

hashval  ♦  =  *s +♦  ;  /*  convert  fro*  string  to  #  */ 

tes t ( thashval ) ?  /*  and  test  for  collision  */ 

hashtable(ha5hcount]=hashval; 
hashcount++ ; 

return  (hashval)  ? 

> 

/*- . . . */ 


-..--t est  ( ) 

tes t ( value ) 
int  *value; 

{ 

int  i? 

for  (i=0;  i<hashcount;  it+) 

{ 

if  (hashtableCi]s=(*value)) 

{ 

(*value)s(*value)+l  la¬ 
test  (value) ; 

> 

> 

> 

/♦--- . - . - . 


*/ 


/*  hashtable  collision?  */ 

/*  yes,  add  a  prime  number..*/ 
/*  and  test  again  */ 


*/ 
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/ 


Precompilation  Routines 
for  the  compiler 

including:  structural  expansion  handling 

USING  handling 


I include  "stdio.h* 


/*<stdio.h>  in  UNIX  environment  */ 


•define  maxkey  29 
•define  maxprim  100 
•define  maxouts  32 


/*  maximum  number  of  Keywords  */ 
/*  maximum  number  of  primitives  */ 
/*  maximum  of  32  outputs  per  orim  */ 


/*• 


•GLOBAL,  DECLARATIONS- 


■*/ 


extern 

int 

strcpyC)  ; 

/* 

copies  one  string  to  another  */ 

extern 

int 

strcmoO  ; 

/* 

string  comparison 

*/ 

extern 

int 

getidC)  ? 

/* 

get  next  Identifier 

*/ 

extern 

int 

find.tokenO  ; 

/* 

returns  the  token  number 

*/ 

/* 

(Keyword  table  index) 

*/ 

/* 

the  given  function  name/type  */ 

extern 

int 

findprimO  ; 

/* 

finds  primitive  library  index*/ 

extern 

int 

pdelimC)  ; 

/* 

prints  a  file  of  keywords 

and  */ 

/* 

tokens,  separated  by  delimiters*/ 

extern 

int 

f copy ( )  : 

/* 

file  copying  routine 

*/ 

extern 

int 

copy. noend ( ) ; 

/* 

copies  everything  but  END 

token  */ 

extern 

int 

ckt-line C )  : 

/* 

scans  one  line  of  ckt  desc 

.  */ 

extern 

int 

searchf)  ? 

/* 

search  a  delimiter  or  toknn  */ 

extern 

int 

mult  1. mod ( ) t 

extern 

int 

secondp  C ) ? 

extern 

int 

tackC ) ? 

i  .  n  a  ^  *  ETonrrimrc................. 

struct 

prim 

i.tah  < 

/* 

Primitive  table  : 

*/ 

char 

namC8]  ; 

/* 

primitive  table 

*/ 

char 

nam2CBl  ; 

/* 

EXTENDED  primitive  table 

*/ 
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int 

nonpar,  onto  ? 

/* 

numpar  =  no,  of  parameters 

*/ 

int 

normld,  fanout  ? 

/* 

for  the  function 

*/ 

int 
>  J 

technology,  overld 

;  /* 

outp  =  #  of  outputs 

*/ 

struct 

namepalr  ( 

/* 

this  holds  system-generated 

*/ 

char 

e.f rom C8]  ; 

/* 

expansion  requests 

*/ 

char 

>; 

e.to  C  8] ? 

• 

struct 

swaoname  ( 

/* 

each  of  these  nodes  will  contain 

a 

module  */ 

char 

sname  C  83 ? 

/* 

specified  in  the  USING  parameter 

list  */ 

int 

>1 

us  ed? 

/* 

this  indicates  whether  used 

or  not 

*/ 

struct 

functable  { 

/* 

each  of  these  nodes  will  contain 

a 

function*/ 

char 

t nname [8] ; 

/* 

and  level  for  a  library  VOHL 

module 

*/ 

int 
> ; 

level; 

struct 

exp-tab  { 

/* 

expansion  table  */ 

char  fnameC9] ; 
int  fnum; 

>? 

/♦ . . . . . . - . .... - */ 


. STORAGE  ALLOCATION  — —  —  —  —  */ 

extern  struct  prim. tab  or imt  [maxprim]  ,  *primntr  ; 

extern  struct  swaoname  typellst  Cmaxprim) [  9-]  ?  /*  table  of  replacements*/ 

extern  struct  swapname  swaplis t C20) [8] ?  /*  USING  parameter  list  storaae  */ 

extern  struct  namepalr  reqtable Cmaxprim] ; 
extern  struct  exp. tab  exotC30]j 


extern  char  userpraCSl; 


extern  int  exDcount; 
extern  int  sfound; 
extern  int  rea. count;  /* 

extern  int  line. count;  /* 

int  line. item;  /* 

extern  int  swap. flag?  /* 

/* 

int  expand. flag?  /* 

/* 

int  found. start;  /* 

int  found. end;  /* 


number  of  system  expand  regs  */ 
line  index  for  swaplist  */ 
index  within  single  line  */ 
indicates  whether  all  of  this*/ 
is  necessary  or  not  */ 
indicates  need  for  additional*/ 
expansion  declarations  */ 
indicates  presence  of  SWAPLIN*/ 
indicates  presence  of  ENDS^AP*/ 


extern  int  add. flag? 

extern  int  delimiter,  bb, 

extern  int  toKnn  ?  /* 

extern  int  cellcount; 
extern  int  orinpflag? 
extern  int  pr int. select ; 


/*  set  if  cell  is  to  be  added  to*/ 

/*  primitive  library  */ 

skcip  ;  /*  delimiter  =  delimiter  type  */ 

/*  bb  =  buf f  C 80]  index  (line)  */ 
err. count  =  error  count  */ 

/*  *  of  MODULES  in  user  program  */ 
/*  controls  printino  of  source  */ 

/*  determines  whether  a  causes*/ 

/*  a  linefeed  or  not  (def aul t=no ) */ 


extern  int  orim. count,  primid  ;  /*  prim. count  =  *  of  orimittves  */ 

extern  int  sys-orims;  /*  number  of  system-defined  prims*/ 

extern  int  features tmaxorim] C21 ;  /*  used  to  describe  the  type  of  */ 

/*  descriptions  available;  */ 

/*  -1  ->  empty  0  ->  block  only  */ 

/*  1  ->  struc  only  2  ->biock  &  struc  */ 

extern  int  append-table  Cmaxorim]  ;  /*  keeps  track  of  the  functions  ure've  */ 
extern  int  append. index;  /*  added  to  the  user  program  */ 

int  modules. to-do ;  /*  number  of  STRUC-only  additions  to  do  */ 

extern  int  exodone  ;  /*  marks  comoletion  of  STRUC  expansion*/ 

extern  int  no-comoilatipn;  /*  used  when  only  making  library  additions*/ 
extern  cnar  token. buf C8] ,  savbuf[83,  buffC80]  ;  /*  buff  *  1  line  */ 
extern  char  keyword  tmaxkeyHB]  ;  /*  keyword  table  */ 

extern  char  instack Cmaxouts] [0] ,  outs  tack Cmaxouts ] C9)  ; 

extern  int  incount  ,  outcount  ; 

extern  int  count  ;  /*  for  printing  on  the  file  */ 

extern  char  savfuncC8]  ; 
int  maxpid; 


extern 

FILE 

*r  1 

; 

/* 

pointer 

to 

input  data  file 

*/ 

extern 

FILE 

*r2 

; 

/* 

pointer 

to 

STRUCT  library 

*/ 

extern 

FILE 

*r  3 

• 

• 

extern 

FILE 

*r4 

• 

» 

extern 

FILE 

*wl 

; 

/* 

pointer 

to 

expanded  file  P1EXP 

*/ 

extern 

FILE 

*tl 

; 

extern 

FILE 

*sl 

; 

extern 

FILE 

*s  2 

; 

/* . */ 


/I----------------------  countcellsC)  . . 

countcells(lookfile) 

FILE  *loo<f  He  * 

< 

int  st art. looking; 
start. lookingro; 

getid ( lookf lie ,  33 ) ; 
f  ind.tokenO  ? 

if  ( ( t oknn>?5 )  &&  ( t oknnkmaxkey ) ) 
start. lookina=l ; 

while  (toknnJsS) 

{ 

if  (toknn==0) 
cellcount++ ; 
getidClookf ile,33) ; 
f ind.tokenC ) ; 

> 

getidClookf lie, 33) ; 


/*  first  keyword  an  add  key?*/ 
/*  yes,  start  lookina  for  */ 
/*  a  missing  DEFINE.  */ 
/*  take  a  look  at  the  1st  */ 
/*  module...  */ 
/*  find  a  MODULE  token?  */ 

/*  yes,  update  count  */ 


/*  read  the  next  token  */ 


find. token ( ) ? 

if  C(toknn!=9)  &&  ( start. loo<ing==l) ) 
{ 

no. compilations ? 

orintf("no  compilation  this  pass\n 

> 


while  (toknnl»20) 

< 

if  (toknn==0) 
cellcount**? 
getid(lookfile,33); 
find. token  C ) ? 

> 

/♦ . 


/* 

should 

be  a  DEFINE 

*/ 

/* 

is  it? 

if  not... 

*/ 

/* 

this  is 

a  cell  addition 

only.*/ 

); 

/*  note 

--if  this  is 

Just 

a  */ 

/* 

missing 

DEFINE,  let 

AUSif */ 

/* 

handle 

it.  After  all 

♦  he 

*/ 

/* 

wrote  this  thing  <grin>. 

*/ 

/* 

scan  the  rest  of  the 

ckt 

*/ 

/* 

find  a 

NODULE  token? 

*/ 

/* 

yes,  update  count 

*/ 

*/ 


. . build ( ) 

buildC) 

< 

FILE  *adds , *soecs ; 
int  adflag,  current. primitive; 
lnt  i , j , skipl ,done; 
int  found,  divert; 
char  bufferlt81? 

add.f laasO; 
adf laq=0; 
done=0 ; 
divertaO; 
maxpldaO; 
print.selectS ; 

adds=fooen("newckts.vhl","w"); 
soecs=fopen("specs","w"); 

getidCrl ,  33) ; 
find-token  C ) ; 
while  (done==0) 

< 

if  (Ctoknn>25)  &&  ( t okn nkmaxkey ) ) 

{ 

add.f lagst ; 
adf lags! ; 

pdelim(adds) ;  /*  save  the  keyword  in  addition  file*/ 

getidCrl ,  33)  ? 
f ind.tokenC ) ; 

> 


/*  build  a  vohl  file  with  no  */ 

/*  END  keyword  */ 

/*  modules  added  go  here  */ 

/*  used  locally  for  each  module  */ 


/*  temporary  string  buffer  */ 


/*  largest  primid  encountered  */ 
/*  newline  after  ')  *  *  / 


switchC  toknn) 

{ 

case  0:  divert=0;  /*  save  NODULE  keyword  */ 

pdelim(r2); 
if  ( adf laq==l ) 

< 

count--; 


case  3: 


odelimC adds ) ?  /*  and  to  the  new  ckt  file  */ 

> 

getidCrl ,  33) ; 
f ind. token  C ) ; 
break? 

Ddelimcr2) ?  /*  save  the  TYPES  Keyword  */ 

if  Cadflaq*=l) 

< 

count--; 

pdelim(adds) ?  /*  and  to  the  new  ckt  file  */ 

>  I 

while  Cl) 

< 

getidCrl ,  33 )  ? 
f ind.tokenC ) ? 

if  (Ctoknn==8)  M  Ctoknn=s4))  /*  quit  for  INTERNA  or 

break? 

pdeiimCr2) ; 

f ind. token  ()  ?  /*  find  out  what  we  just  read  */ 

findprimC);  /*  it  might  be  a  prim,  so  check  */ 

if  Cprimid  <  prim. count)  /*  if  this  is  a  primitive  */ 

< 

current. pr imit ive=orimid?  /*  next  IDs  will  be  of  this  t 
if  (primid>maxpid) 
maxpidsorimid ; 

> 

else 

<  /t  not  a  primitive,  so  add  it 

i  =  0; 

while (type  list Ccurrent. primitive) Ci) ,  used==l ) 

i  +  +  ?  /*  look  for  next  free  soace*/ 

strcpy C typelis t  Ccurrent.primitive) CiJ,sname,token.buf); 
typelist [current. primitive) [i) .used=l ; 

> 

>  /♦  while  Cl)  */ 

if  Ctoknn==4) 

< 

countsO;  /*  if  a  M#,  then  no  TYPES  */ 

fprintfCr2,"  ?  \n");  /*  so  we  need  to  save  a  #?#  */ 
if  Cadflags=l); 

f printf Cadds ,  "  ;  \n")7 

pdelimCr2);  /*  write  the  M'  token  */ 

if  Cadflagssl) 
pdelimcadds)? 
getidCrl ,33) / 
find. token  C )  ? 

> 


1  37 


break; 


case 


case 


case 


5:  if  (adflaqsrl) 

< 

adf lag=0 ; 
f printfCadds , " 

pdelim(r2) ; 
getidCrl, 33)? 
f ind.tokenC ) ; 
break) 


/*  if  token  is  a  f>'  then  */ 

/*  that's  the  end  of  this  */ 
/*  module ,  so  print  and  */ 

>  \n")?  /*  clear  the  addition  flag*/ 


uexoand  C ) ) 

/* 

print. seiectsi ; 

/* 

divert**)) 

pdelimC  r2) ) 

/* 

getidCrl, 33)? 

f ind.tokenC ) ? 

if  Ctoknn==7) 

fpr intf ( r2 ,  *  ;  \n  ")? 
break) 


print  system  expand  reqs  */ 
put  linefeeds  after  ')'s  */ 

print  INITIAL  */ 


9:  print,  select**)? 

/* 

no  linefeed  after  ') ' 

*/ 

pdelimCr2) ; 

/* 

print  define  token 

*/ 

getidCrl ,33) ) 
f ind.tokenC ) ? 

/* 

read  the  next  token 

*/ 

swltchC toknn) 

/* 

anything  to  DEFINE? 

*/ 

case  6;  print. seiect=l )  /*  no,  INITIAL  found  */ 

divert=0? 

£printfCr2,"  ?  \n")?  /*  start  a  new  line  */ 

uexpand ( ) ) 

pdelim(r2)?  /*  and  print  INITIAL  */ 

getidCrl, 33) ) 
find. token ( ) ) 

if  Ctoknn=a7)  /*  no  INiTIALized  params  */ 
fprintfCr2,"  ;  \n")? 
break) 


case  21:  diverts*)?  /*  user  wants  EXPANDS  */ 

f printf Cr2, "  )  \n")?  /*  start  a  new  line 

uexoandO?  /*  put  ours  first  though*/ 

pdelim(r2))  /*  now  print  user's  */ 

getidCrl, 33)? 
find. token ( ) ) 
break) 


default!  divert=l?  /*  DEFINE  Darams  present  */ 

fprintfCr2,"  )  \n")?  /*  start  new  line  */ 

fprintfCsoecs, "DEFINE:  ")? 
pdellmCspecs ) ? 
getidCrl ,  33)  ? 
find. token ( ) ) 
break ; 


> 

break 


case  20:  done=l; 

break; 

case  21:  divert=0; 

pdeli-n(r2)  ? 
aetidCrt ,  33) ; 
f ind-token( ) ; 
break; 

case  22:  line-i tem=0 ; 


fprintf (r2,"SWAPLiN  ;  \n" )  / 

/* 

mark  this  ckt  line 

*/ 

swao-f lag  =  l ; 

/* 

we'll  be  doing  swaps  */ 

exoand-f 1 aa=l ? 
f ound=0; 

/* 

and  probably  calling  */ 

do 

< 

getidCrl ,47) ? 
find-token ( ) ? 

/* 

for  expansions 

*/ 

/* 

get  the  parameter 

list  */ 

if  (toknn==25) 

i 

/* 

is  this  a  NDEXP? 

*/ 

expand-f lag=0; 

/* 

don't  need  to  call 

for*/ 

getidCrl , 47) ; 

> 

else 

/* 

expansions 

*/ 

/* 

expand  to  this  TYPE  */ 

< 


If  ( f ound==0 ) 

{ 

for  (i  =  0;  i<=maxpid;  i=i+l) 

< 

j  =0 ;  /*  need  to  find  it  in  list*/ 

while  (typelist Ci] C j] .used==l ) 

< 

if  (strcmp( token-buf , 

typelist Ci) C j) • sname) ==0)  /*  a  match?  */ 

< 

strcoy (but f er 1 , primt  [i] ,nam2) ;  /*yes,  save*/ 
founds  1 ; 

break;  /*  and  continue  */ 

> 

else 

j++;  /*  no,  look  at  next  TYPE  */ 

>  /*  end  while  tyDelist*/ 

if  (found==l) 
break; 

>  /*  end  for  */ 

>  /*  end  if  found  */ 

>  /*  end  else  */ 

strcpvCswaplist Cline -count] Cline -item] #sname, 

token-buf)?  /*  one  by  one  */ 
swaolist [line-count! C line-i tern) tused=l ; 

line-i tern**; 

)  while  (delimiter  1=5);  /*  stop  for  a  ')'  */ 


/*  end  token,  so  quit  */ 

/*  EXPAND  */ 

/*  USING--  here  we  go.1,  */ 

/*  temporary  file  */ 
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ckt.  line  Cio  utcount,rl,outstack,S«  incount,  instack, &sklpl) 


for  (iao;  i<outcount-l;  i  +  + )  /*  w rite  outputs*/ 

{ 

f printf ( r2 , "  Is  , " , outs t ack C i ]  ) ; 
if  (adf laa==l ) 

f printf (adds  ,  "  %s  ,  * , outs tack C i) ) ; 

> 

f or intf C r2 , "  Is  *  n ,outstack ti) )  ? 
if  C adf lagssl ) 

forintf  (adds, "  Is  *  *  ,  outstack  til) ; 

f printf Cr2 , "%s C ", savfunc) ;  /*  write  the  function  name  */' 

if  C adf laqssl ) 

fpr in tf( ad ds,"%s(", savfunc); 

for  (1=0;  i<incount-l;  i**)  /*  write  the  inputs*/ 

{ 

f printf ( r2 , "  Is  > " , instack Cl 1  ) ; 
if  Cadflag==l) 

fprintf  (adds, "  Is  ,  "  ,  instack  Cil) ; 

> 

f or intf ( r2 , "  Is  )  | \n" ,  ins  tack  C  i  1  ) ; 
if  cadflagsal) 

forintf (adds , "  Is  )  ; \n" , instack Cil) ; 

if  C expand. flaq== 1 )  /*  need  to  call  for  expand?  */ 

for  CisO;  i<reg. count;  i++)  /*  yes,  see  if  */ 

<  /*  already  did  */ 

if  (strcmp(reqtable[i)#e.from,savfunc)==0) 

break;  /*  if  already  marked  this  */ 

>  /*  one  then  ignore  it  */ 

if  ( i==rea. count) 

{ 

s trcpy ( regtable [i) . e.to , buf f erl ) ;  /*expand  to  here  */ 
strcpyC reqtable Ci ], e^from , savfunc) ;  /*  from  here  */ 
req. counts ; 
expand. flag»0  ? 

> 

> 

fprintf ( r  2 , "  ENDSwap  ;  \n"); 

line.count>+;  /*  increment  swaplist  */ 

ae t id ( rl , 33 ) ;  /*  then  read  next  token*/ 

f ind.tokenC ) ; 
break; 

defaults  if  (divert==0) 

< 

pdelim  Cr2) ? 
if  Cad£laq=cl) 

{ 

count--; 
pdelimC adds ) ; 

> 
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> 

else 

pdelimC  specs ) ; 

getid( rl , 33 ) ?  /*  and  read  the  next  one  */ 

f ind-token( ) ; 

break; 

>  /*  switch  */ 

>  /* while*/ 


f closeCr 1 ) ; 

f printf (adds , "  ENO  ;  \n");  /*  END  the  file  */ 

f close ( adds ) ; 

fprintf Csoecs,"  END  ;  \n")/  /*  END  the  file  */ 

f close(sDecs) ; 

print-seiect=0/  /*  restore  to  Initial  state  */ 

> 

/* . . . . . . »/ 


..••.•.•.uexpand( 

/*  This  routine  prints  any  sy stem-generated  expansion  requests  */ 

/*  onto  the  file  r2  ( OUTFILE) .  */ 

uexpandC ) 

( 

int  i; 

for  CiaO;  i<req-count;  i++) 

fprintf(r2,"  EXPAND:  %s  :  %s  ; \n" , reqtable C 1 3 • e_f rom , reqtable (!) • e.to) 

> 

/* - - - - - - - - - - - - - - - -*/ 


- -  struc-exoandO 

struc- expand C ) 

( 

int  sKip , passdown; 

Tiodules-to-dosce  11  count; 
while  (expdone==0) 

( 

getidCrl ,41 ) ; 
f ind.token( ) ? 
while  (toknnis4) 

( 

qetid ( r l , 41 ) ; 
find-token  C ) ; 

> 

skip=0? 

while  (ski dcs0 ) 

( 

ckt -1 ine (tout co unt,rl,outstack,tincount, instack , &skip) ; 
if  ( s k i d  =  =  1 ) 

( 


/*  scan  alona  until  found  {  */ 

/*  looking  for  {  (indicates  */ 

/*  we're  in  the  circuit  proper)  */ 
/*  scan  along  until  found  {  */ 


/*  repeat  until  we  find  a  */ 


break;  /*  quit  */ 

> 

else 

< 

s trcpy ( t oken.buf , savf unc) ;  /*  qet  the  function  name  and*/ 

flndbriffOj  /*  see  If  it  is  a  primitive  */ 


if  C pr imid<prim.count )  /*  yes,  but  is  it  a  valid  one?*/ 

<  /*  if  not,  let  Ausif  handle  it*/ 

if  (f eatures Cpr imid] CO] ==l )  /*  STRUC-only  description?  */ 

< 

passdown=primid? 

appendCpassdown, r2) x  /*add  it  to  work  file  */ 

>  /*  if  features  */ 

>  /*  if  Drimid  */ 

)  /*  else  */ 

>  /*whiie  skip  */ 


modules*to.do--x 

/* 

hey. 

finished  one 

*/ 

cellcount  — ; 

/* 

decrement  the  cell 

count 

*/ 

if  (cellcount==0 ) 

< 

fprintf(r2,  "END?  \n")x 

/* 

cell 

count  =  0? 

*/ 

/* 

yes. 

place  the  END 

on  the 

*/ 

fcloseCrl ) ? 

/* 

expanded  file  and 

close  it*/ 

f closeC  r2) ; 

if  C modules-to-do==0) 

/* 

modulesTodo  also  * 

0? 

*/ 

expdone=l ? 

/* 

yes. 

then  we're  finished 

*/ 

else 

< 

/* 

no , 

further  expansion  is 

*/ 

rl  =  f  ooenC  "outf  ile"  ,  "r " ) ;  /*  required  — make  a  new  file  */ 
r2  =  fopen("infile","V);  /*  the  old  OUTFILE  becomes  */ 
f copyCrl ,r2) x  /*  the  new  INFILE  */ 

f closeCrl ) x 
fclose(r2)  ; 


> 


rl=fooen("infile",,,r,,); 
r2rfopen("outfile","w")x 
copy.noend ( rl , r2 )  x 
fclose(rl); 


/*  build  the  new  OUTFILE  oy  */ 

/*  copying  everything  but  the*/ 

/*  END  token  */ 


rlafoDenCMnfile",'^")/ 
countcells (r  1 ) ; 
fclose(rl); 

rl=foDen("infile","r")| 
struc-expandC) x 
> 

/*  else  */ 


/*  count  the  #  of  cells  in  */ 

/*  this  new  input  file  */ 

/*  now  that  we've  got  the  files*/ 

/*  straiaht,  exband  recursively*/ 


) 

/* . . . . . . . . . . . - . --*/ 

/< . . .  append () 

append Cptarget,writefile) 
int  Dtarget? 

FILE  *wr itef ilex 


< 

intaindex,done: 

FILE  *lookfiie; 
done=0 ; 
aindex=0 ; 

print-seiectsl ;  /*  put  linefeeds  after  ')'  */ 

do 

< 

If  (append. table Caindex] ==otarget )  /*  already  added  this  one?*/ 

break?  /*  yes,  skip  */ 

aindex++? 

>  while  (aindex<cappend. index) ; 


if  (aindex>append. index) 

< 

looKfile=fopen("struc","r")? 
do 

< 

getid(lookfile,33) ? 
f indorim( ) ; 
find. token ( ) ? 
if  (toknn==0) 

< 

getid(lookfile,33) ? 
findprimO? 

if  C Cor imid<prtm-count )  SS  (pr imid==ptarget ) ) 

< 

donesl;  /*  yes,  quit 

fprintf (writef ile,"M00ULE  :  "); 

pdelim(writefile)  ? 

getid(lookfile,33); 

f ind.token ( ) ; 

while  (to*nn!*3) 

< 

pdelim( writef ile) ; 
getiddookf  ile, 33)7 
f ind-toxenC ) ; 

> 


/*  no,  append  this  prim  */ 


/*  no,  wrong  primitive*/ 


/*  founds  MODULE?  */ 

/*  yes,  is  it  the  right  one?*/ 
/*  get  the  primitive  name*/ 


*/ 


/*  write  everything  down  to  TYPES  */ 


pdelim( writef ile) ; 
getiddookf  ile, 33)  ? 
f ind_token()  ? 
if  (toknn==4) 

< 

fprintf (writef ile,  ’ 
forintf (writef ile,  * 
getiddookf  ile, 33); 
f ind.tokenO i 
> 


/*  write  the  TYPES  token  */ 

/*  no  TYPES  ?  */ 

;  \n")?  /*  start  new  line  */ 

<  \n" ) /  /*  print  the  (  */ 

/*  then  grab  token*/ 


while  (toknn!=5) 

< 

pdelim( writef ile) ; 
getiddookf  ile,  33) ; 
f ind.token( ) ; 

> 


/*  copy  down  to  ')*  */ 

/*  cooy  the  token  */ 

/*  and  get  the  next  one  */ 


pdelim(wrlteftle)?  /*writetne')'  */ 

aooeni. table CaoDend. Index] =primld;  /*and  update  the  table  */ 

modules„to_do++;  /*  I  hate  recursion  */ 

append. index++; 

> 

) 

>  while  ( done==0 ] ? 

f close (lookf 1 le) ; 

>  /*  if  */ 

print. seiectao ?  /*  restore  to  previous  state  */ 

>  /*  append  */ 

. . . 


swap( ) ...... - - - 

/*  This  routine  is  invoked  after  expansion  and  just  before*/ 

/*•  compilation.  If  there  are  any  requests  for  function  */ 

/*  name  substitution  with  USING,  they  will  be  handled  */ 

/*  here.  The  affected  lines  are  delimited  by  SWAPlTN  and  */ 

/*  ENDSWAP  keywords  which  will  be  removed  prior  to  compil-*/ 

/*  ation.  */ 

swao(]  | 

< 

int  skipl,  found,  I,  1? 
int  perform,  swaps; 

rl =f ooenC "ol 1 ^ , "r " ) ;  /*  raw  file  is  Pll  */ 

wlsfooen("outfile","w");  /*  processed  file  goes  here  */ 


getid( rl , 41 ) ; 
f  ind.tokenH  ; 
while  (toknnl=4) 
< 

pdelimCwl ) ; 
getld ( rl ,413? 
f  Ind-tokenO  ; 
) 


/*  copy  down  to  the  M#  */ 


pdelim(wl ) ; 
swaps  =  -l; 
f ound.start  =  0  ? 
f ound.endsO ; 


/*  write  the 


*/ 


skiol=0; 
while  (1) 

< 

ckt.l ine(&out count , rl , outs tack, &  incount , instack , iskiol); 
if  (skipl==l)  /*  quit  when  we  see  a  */ 

break? 

if  (found. end==l)  /*  find  an  ENDSWAP  wnile  getting  ckt  line?* 

{ 

performsO?  /*  no  need  to  check  for  s^aos  */ 

found. end=0?  /*  set  up  for  the  next  ENDSWAP  key  */ 

> 

if  (f ound.start==l )  /*  find  a  SWAPtlN  keyword?  */ 
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{ 

performsl;  /* 

found. s tart=0 ;  /* 

swaosu;  /* 

> 

if  (perform==l)  /* 

{ 

strcoy ( to*en-buf , savf unc) ;  /* 

findorimC);  /* 

1=0;  /* 

if  (typelist[orimid]CO],used==l) 

< 

found=0;  /* 


need  to  start  loo<ing  for  swaps  */ 
set  up  for  next .  S^PLIN  Xev  */ 
select  the  next  line  of  swaolist  */ 


chec*  for  swaps  on  this  ckt  line?  */ 

move  function  name  to  toicen  buffer*/ 
and  see  what  type  It  is  */ 

initialize  USING  param  selector  */ 
/*  this  TYPE  is  user-def ined?  */ 

yes,  initialize  to  "not  found"  */ 


while  (swaolist [swaps] [i] , used==l ) 
j*0; 


/*  match  USING  param  list*.*/ 


I 


while  (typelist [primid] [j] ,used==l )  /*. .against  TYPE  list  */ 

if  (strcmp(swaplist [swaps]  Ci] .sname, 

typelist [primid] Cj] ,sname)==0)  /*  a  match?  */ 

< 

strcpyCsavf unc, typelist [primid] [j] .sname] ;  /*  yes,  swap  */ 

found=l;  /*  tell  outside  world  we're  done  */ 

brea»c;  /*  and  quit  */ 

> 

else 

j++;  /*  no,  loo*  at  next  TYPE  */ 

>  /*  while  typelist*/ 


if  (found==l) 
brea<; 
else 
i+*; 

>  /*  while  swaplist  */ 


/*  are  we  done?  */ 

/*  yes,  loo*  for  next  substitution  */ 
/*  no,  try  next  USING  parameter  */ 


if  ( f ound==0 ) 

< 

printf( "couldn't  find  the  module  you  wanted  to  reolace  %s\n", 

savf unc) ; 

printf("comoilation  continues\n\n"); 

> 

>  /*  if  tyoelist  */ 

>  /*  if  perform  */ 

for  (1=0;  i<outcount-l;  i+>)  /*  write  outputs*/ 

fprintfCwl,"  %s  , ",outstac*[i] ) ; 
fprintfCwl,"  %s  =  " , outstac*  [13 ) ; 

f printf (wi , "%s (", savf unc) ;  /*  write  the  function  name  */ 

for  (i=0;  l<incount-l ;  i++)  /*  write  the  inputs*/ 

fprintfCwl,"  %s  , " , instac* [13 ) ; 


fprintf  (*1 , "  %s  )  ; \n" , instack Ci]  ) 


>  /*  while  not  s*lp  */ 


odelimCwl ) ; 
fcopyCrl , wl ) ; 
fcloseCrl); 

fclose(wl); 

rl3fopen("out£ile","r"); 
r2sfooen("soecs","r")/ 
wl«f open ( "oil " , "w" ) ; 

print. select=l ; 
getid(rl,33); 
f Ind.tokenO  ; 
while  (toknn!=5) 

< 

pdelim(wi);  /*  copy  circuit  body  */ 

qetld ( rl  ,333; 
f Ind.tokenC ) ; 

> 


/*  write  the  #>#  */ 

/*  then  copy  rest  of  file*/ 


pdelim( wl) ? 
print. select=0 j 
getld(r2,33) ; 
f Ind.tokenC ) ; 

If  ( toknn==20) 

forintfCwl , "DEFINE:  ;\n"); 
else 
< 

while  ( toknn  J  =20 ) 

< 

pdelim(wl);  /*  copy  the  DEFINEd  paraTieters  */ 

getid(r2,33)  1 
t Ind.tokenC ) ; 

> 

> 

while  (toknn!=6)  /*  look  for  the  INITIAL;  */ 

< 

getidCrl ,33); 
f ind. token ( ) ; 


> 

pdellrnC  wi ) ; 
f close ( r2) ; 

f copy ( r 1 , wl ) ;  /*  copy  the  processed  file  */ 

fcloseCrl);  /*  back  to  Pil  */ 

f closeC wl ) ; 

> 

/*---  — - - - - - - - */ 


/*- . chectc.deeperO 

check.de eper ( fnam,targetoid,targetname) 
Char  f  narn  C ]  ; 
int  targetoid? 
char  targetnameU; 


{ 

FlhF.  *lib; 

i  n  t  findex,s<ip; 

int  incnt , outcnt ,  i,  intable; 

char  instxCmaxouts)  C9)  ,  ostx  Cmaxouts)  C8]  ; 

struct  functable  ft  able  Cmaxprim) ; 

lib3foDenC"struc"#"r"); 
getid (lib, 33) ; 
f  ind.toXenC) ; 
while  (1) 

{ 

if  (toxnn==0)  /*  find  a  MODULE?  */ 

{ 

getid C lib #41)?  /*  yes,  is  it  the  right  one?  */ 

if  C s trc^D c f nan , toKen.buf ) ==0 ) 

< 

while  (to>cnni=4)  /*  yes,  read  down  to  circuit  body  */ 

{ 

getidCHb,41]? 
f ind.toxenC ) ; 

> 

brea<; 

> 

> 

getid (lib, 44) ; 
f ind.toKen ( ] ; 

) 

f index=0; 
s<ib=0 ; 
whiled) 

< 

cfc  t.l  ine  C  Sou  tent ,  lib,ostK,&incnt,instX,&sXiD)/ 
if  CsxiD==l] 
breaw? 

5trcDyCftableCfindex),fnname,savfunc); 
strcpy ( toXen.buf , savf unc) ; 
f indprimC ) t 

ftableCflndex)  ,level  =  featuresCpri-nid)  Cl); 
f index ♦♦ ; 

) 

f close  C lib) ? 

for  Ci=0;  i<findex;  i++) 

< 

cnecxtaoieCi,  iintaoie,  ftable);  /*  this  one  in  expand  table?  */ 

if  C  Cf  tabled)  .level  >  features  Ctaraetpid)  Cl)  ]  &&  C intablessO ) ) 

< 

str coy ( exDt CexDCOunt 3 , f name , f table t i) . fnname ) ;  /*  add  it  to  table  */ 
exDcount++; 

checx -deeDerC ftable Ci) . f nnane , tar getoid , tar get name) ; 

> 

else 
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{ 

if  ((  f  table  Ci ).  le vel==f ea tures  CtaroetDid]  C 1  ]  )  && 

(strcmpCf table C i]  .  fnname , tar get name ) ==0 ) ) 


{  /*  function  name  what  we're  looking  for?  */ 

sfound=l;  /*  yes,  found  at  least  one  occurrence  */ 

> 

> 

> 

> 

/< . . . . . . . «/ 


/* ................ ...... Che ck table ( 

checktable(ind ex, result, table) 
lnt  index, ^result; 
struct  functable  tabled; 

< 

int  i; 

*result=0;  /*  initialize  to  "not  found"  */ 

for  (1=0;  i<expcount;  i*+) 

< 

if  (strcmpCexpt Ci) tfname, tabieCindex] ,fnname)==0)  /*  find  name  in  extbl?  */ 
{ 

*resuit=l ; 
breaic; 

> 

> 

>  I 

/i . - . - . - . - . */ 


oe rf  o ru.ex pan sion ( ) 

perform.expansionO 
{ 

extern  int  occurance; 
int  i ,k, edone ,end; 

for  (k  =  0;  k  <  exocount;  Ic  a  k  ♦  l)  /*  each  expansion  request*/ 

{  /*  handled  one  at  a  time  */ 

rl  ■  f oPenC "pi  1 " , "r" ) ; 

wl  =  f open ( "plexp" , " w" )  ;/*  declaration  part  of  expanded*/ 

/*  user  program  */ 

secondp(k)  ;  /*  second  pass  -  expansion  */ 

fclose(rl)  ;  /*  expanded  desc.  is  in  SCR2  */ 

/*  expanded  declaration  inPlEXP*/ 

/% - - - ---COpy  piexp  to  temp-- - - - ----------*/ 

tl  *  f openC " temp" , " v" )  ; 
rl  =  f ooenC "Dlexp" , "r")  ; 
fcopy(rl,tn  ; 
fclose(rl)  ; 


/*--- . . . . . . . . . . . */ 

/♦-----------copy  internals  of  function  to  tl  with  tacking----*/ 


si  =  f open ( " scr 1 " , "r" )  ;  /*  function's  description  */ 


/*  read  Internals  and  cooy  to  temp  with  tacKlng  */ 


while  (1) 

< 

get 1 d ( s 1  *  4 1 ) ;  /*  41  =  mlsslna  {  error  */ 

flnd-toKen()  ; 

If  (toKnn  ns  4)  /*  <  */ 

brea<  ; 

If  CtoVrnn  Is  8)  /*  INTERNAL  */ 

{ 

end  =  0  ; 

for  (1  «  0;  l  <  occurence;  1  =  1  ♦  1 ) 

< 

tacicCi,  token..bu£)  ; 
if  (delimiter  ==  2)  /*  ♦/ 

{ 

end  =  1  ; 

If  ((1  +1)  2=  occurance) 
delimiter  s  1  ; 

> 

pdellm(tl)  ; 
if  (end  ss  i) 
delimiter  s  2  ; 

> 

> 

else 

pdelimctl)  ; 


>  /*  end  while  */ 

fprlntf (tl,"  {  \n" )  ; 

f close ( si)  ; 

. . . 

/♦------------append  SCR2  to  temp  and  copy  bac*  to  Pll--*/ 


s 2  a  f open ( "scr 2" , "r " )  ; 
fcopy(s2,tl)  ; 
fprintfCtl,"  >  \n" )  ; 
fclose(s2)  ; 
fclose(tl)  ; 

tl  =  £ooen( "temp" , "r" )  ; 
wl  =  f ooenC "Dll", "w"  )  ; 
fcopy(tl,wl)  ; 
fclose(tl)  ; 
fclose(wl)  ; 

/* . - . «/ 

>  /*  end  for  */ 

If  (exocount  ==  0) 

prlntf("  >>>  No  expansion  reauest  \n")i 
else  /*  tacfc  last  part  (simulation  control  specs)  to  Pll  */ 
( 

r l  =  f ooenC "pi l " ,  "r " ) ; 
tl  =  fooent " temp" ,  "w" )  ; 
f copy ( r 1 , 1 1 ) ; 
fclose(rl) ; 

rl  3  f open (user prg, "r" )  ;/*  user  program  */ 


get  id ( r  1 ,  3  3  )  ; 
f ind.toker C ) ; 
while  CtoknnI=5) 

{ 

getidCrl , 33) ; 
f ind.tokenC ) ; 

> 

edone=0; 

getidCrl , 33) ;  /*  get  next  token  after  >  */ 

f ind.tokenC ) ; 
while  (1) 

{ 

switchCtoknn) 

< 

case  0:  edone=l;  /*  MODULE  */ 

break; 

case  6;  orin t.selectsl ; 
odelim C  tl ) ; 
getidCrl ,34) ? 
find. token ( ) ; 
if  Ctoknn*=7) 

f print f ( ti , "  ;  \n"); 
break; 

case  9 1  or int. selects© ? 
pdelimctl) ; 
getidCrl ,34) ; 
f  ind.tokenO  ? 
if  (toknn==6) 

< 

forintf ctl,"  \n") ; 
pdel lm( tl ) ? 
getidCrl ,34) ; 
f ind. token  C ) ; 
if  Ctoknn=a7) 

f printf  Ctl,"  ;  \n" ) ; 

> 

break; 

case  20:  edone=l;  /*  END  */ 

break; 


case  21:  getid Cr 1 , 34) ;  /*  expand  */ 

getidCrl ,34) ; 
f ind.tokenC ) ; 
break; 


default:  odelimctl); 

getidCrl ,34)  ; 
f ind.tokenC ) ; 
break; 


> 


/*  switch*/ 


If  ( edone==l ) 

Dree* ; 

>  /*  while  */ 

f c lose ( 1 1 )  ; 

tl  =  f  openC  "temp"  ,  "r")  ; 
w 1  s  f ooen ( "d1 1 rt , "w" )  ? 
fcopyttl,wt)  ; 
f closet  t 1 )  ? 
fclosetwl)  ? 

> 

> 

/♦--------------•---end  expansion----------------------------*/ 


/* - addj  lb()— ————  ——— -------*/ 

add.llbO 

< 

lnt  1 ,  lent , oent , done j 
int  s>cip,maxlevel; 

done=0; 

orlnt-select*l ? 
rl=fooenf"newckts.vhl",HrM); 

getidtrl  ,33) ;  /*  find  out  which  addition  to  do  */ 

find.tokent); 

do 

{ 

icnt=0; 

ocnt=0; 

maxlevel=0; 

switch  ttoknn) 

< 

case  20:  donesi;  /*  found  the  E^D  toKen  */ 

b  r  e  a  < ; 

case  26:  or int f t " ADDCELL  not  installed  ye t , ♦ # . \n" ) / 
brea<; 

case  27;  printf ( "Perf ormino  a  structure-only  addition  for,.  " ) i 
r2  =  fooen^"temp","w,,); 
r3  =  foDen("struc","r''); 
fcopy tr3,r2) ; 
fclosetr3) ; 
aetidtrl  ,33)  ; 

odelifn(r2)?  /*  write  MODULE  totcen  */ 

getidtrl  ,33) ;  /*  get  the  module  name  */ 

strcpytorimttsys.prims]#nam2,token-buf); 

printf  C^sSn^  ,  token.buf ) ; 

pdel im ( r2 ) ; 

getidtrl  ,33) ;  /*  get  INPUTS  keyword  */ 

pdelim(r2) ; 

getidtrl , 33) ?  /*  get  first  input  name  */ 

f ind.toxent ) ; 


while  ( t o  k  n  n  i  =  2 ) 

{ 

lent ♦♦ ; 
pdellh(r2) ; 
getid(ri,33); 
f i nd. token ( ) ; 

> 

or imt tsys.pr ims) , numoar=icnt ; 

Ddelim(r2) ; 

get  id ( rl , 33) ; 

find. token C ) ; 

while  (toknn!=3) 

( 

ocnt*+; 
pdelimC  r2) ; 
getidCrl ,  33) ; 
f ind. token ( ) ; 

) 

primttsys. prims) •outp=ocnt; 
features Csys-prlms ] C0)=l; 

pdelim(r2) ; 
get  id  C  rl ,  33 ) ; 
f ind.tokenC ) ; 
if  (toknn==4) 

< 

co unt=0 ; 

forintf (r2,"  ;  \n"); 
pdelimC  r2 ) ; 

> 

else 

< 

while  (toknn!=4) 

< 

Ddelimt  r2 ) ; 
getidCrl ,33) ; 
find. token ( ) ; 

> 

PdelimCr?) ; 

> 

skip=0 ; 


/*  stoD  when  find  OUTPUTS  */ 
/*  count  and  write  inputs  */ 

/*  write  OUTPUTS  keyword  */ 

/*  get  first  output  ♦  / 

/*  Stop  wnen  find  TYPES  */ 

/*  count  and  write  outputs  */ 


/*  write  the  TYPES  token  */ 

/*  get  the  next  token  */ 

/*  this  will  happen  if  no  TYPES*/ 
/*  are  declared  */ 

/*  puts  Types:  ;  into  file  */ 

/*  then  print  tne  * {*  */ 

/*  write  all  the  TYPES  */ 

/*  then  write  tne  M#  */ 


while  (1)  /*  get  the  rest  of  the  circuit*/ 

< 

ckt.line(&outcount,rl,outstack,&incount,instack,&skip); 
if  (skioesi) 
break; 

for  (1=0;  i<outcount-l ?  i++)  /*  write  outputs*/ 

f printf ( r2 , "  Is  ,", outs  tack [ i] ) ; 
f printf Cr2 , "  Is  =  ",  outs  tack ( 1) ) ; 

f printf ( r2 , "Is ( H , savfunc ) ;  /*  write  the  function  name  */ 


for  Ci=0?  i<lncount-l;  i++) 

fprintf(r2,"  Is  ins  tack C i) ) 


/*  write  the  inputs*/ 


forintfCr?,"  )  ?\n",ipstac*:[i]) 


strcpv(tokep_buf,savfurc); 

findorimO?  /*seewnat  funcname  is*/ 

if  Cfsaturestprl’nidHl]  >  maxlevel)  /*if  hiqner  level  */ 
maxlevel=f  eatures  (or  imid]  C  l  3  ;  /*then  save  hiqner  level*/ 

> 

forintf(r2,H  )  \n");  / *  write  the  closing  brace  */ 

fclose(r2); 

features Csys. prims] ( 13 =maxlevel+l ;  /*this  orim  is  1  level*/ 
sys-prims**;  /*  higher  than  highest  subcxt*/ 

r?=fopen(HtemDH,"rrt); 
if  (r2==tfUT,L) 

pr int f C  "Temo  file  open  failedNn")? 
r3=fooen("struc"f"w")? 
if  ( r 3==MUtiL ) 

or int f ( " S true  file  open  failedXn")? 
f codv ( r2 , r 3 3 ;  /*  cody  new  file  bac<  to  */ 

f c  1  o s e ( r 2 ) ;  /*  STRUC  */ 

fclose(r3); 

orintf ("writing  PRIMiTIV.DAT  file\n")? 

r4=foDen("orimitiv.datM,Mw"); 

if  (r  4  =  =  MULfj) 

PrintfC "Primitive  file  onen  failed\nH); 
f orintf ( r4, "%d  \n "  , sys-pr ims ) ; 
for  (i=0?  i<sys«Dr ims r  i++) 

< 

f Dr  in tf ( r* , "  %s  %d  %d  *d  %d\n" , pr imt C 13 • nam2 , Dr int C i ] • numoar , 
primtri3.outP,featuresCi3  C 0 3 ,features(13  C 1 3  ) ; 

> 

fclose(r4); 
get  id ( r  1 ,  3  3 )  ? 
f 1 nd .token ( ) ; 

oreac  —  - 

case  28;  or  in t f ( " ADDPLOCK  not  installed  vet....\nH)? 
b  r  e  a  K ; 

>  /*s witch  */ 

>  while  (done==0)j 
print. select=o; 

>/*ad dlib*/ 


Loalc  Primitive  Descriptions  File 

#ir. elude  "stdio.h" 

•define  maxprim  100 

struct  prim. tab  < 

char  namC 8 3 , nam2  C8 3  ; 
int  numpar,outp; 
int  normld,  fanout; 
int  technology,  overld; 

>? 

struct  prim.tab  ♦temPDtr ; 

orimsetuo(orimotr) 

struct  prim. tab  ♦primotr; 

< 

extern  int  prim. count , features tmaxorim] (23 ; 
int  i; 
char  ch; 

FILE  *xp; 


temoDtr^or impt r ; 

strcDy((*primptr).nam, 

Primotr++; 

strcpy((*primptr).nam, 

primotr++: 

strcDy((*primotr),nam, 

primotr++; 

strcpy((*primptr)*nam, 

primotr++; 

strep y((*primptr).nam, 
Primotr++ ; 

strcoy((*orimotr).nam, 

PrimDtrt+; 

strep y((*primotr),nam, 
Primotr++? 

strenve (*primptr).nam, 
orimotr-M-; 

Strcpy((*primotr).nam, 

orimDtr++; 

strcpy((*primDtr),nam, 

Primotr++? 

strep y((*primptr),nam, 
primotr++? 

strcoy((*primptr).nam, 

orimotrt+; 

strcpyC  (*primotr).nam, 
primotr++; 

strcoyC (*primptr).n am, 
primptr  +  «-; 

strcDy((*Drimotr).nam, 

Primotr**; 


"READJN")  ; 
"AND")  ; 
"OR")  ; 
"NAND")  ; 
"NOR")  ; 

"INVERT")  ; 
"EXOR")  ; 
"ANDTHRE")  ; 
"NANDTHR")  ; 
"SRBLOCK")  ; 
"RETDBLO" )  ? 

"ANDFOUR")  ; 
"NANDFOU")  J 
"ORTHREE")  ; 
"OPFOUR")  ; 


strep y((*primptr),nam 


HALFADD"); 


/*  set  up  user-defined  Prims  */ 


Dri,nptr  +  +; 

strcDv((»primptr).nain#"USER2"); 
Pr imptr++; 

strcDy((*primDtr) .nam, "USER3") ; 
Primptr++; 

strcpy((*orimotr).nam,"USER4"); 

orimrtr++; 

strcoy((*primptr).narn,  "USERS'1 ) ; 

primptr**? 

strcoy((*orimotr).nam# "USER  6" ) S 

pri^otr**; 

strcpy(  (*primptr)  ,  nam ,  "USER7"  )  ; 
prinptr++; 

strcoy((*primptr).nam,"USER8"); 

primptrt*; 

strcoy((*primotr).nam,"USER9"); 

orimotr++; 

strcpy((*primptr).nam,"USEP10"); 

orimptr**? 

strcoy((*primptr).nam,"USERlt"); 

primotr**; 

strcpy((*orimotr).nam,"USEPiO"); 
p  r  i  m  p  t  r  ♦  +  / 

strcnyC (*pri*Ptr).nam,"USERl2"); 
pr  imptr**; 

strcoy((*prifnptr).nam,"USERl3"); 

orimotr**; 

strcpy((*primotr).nam,"USER14"); 

pr  imptr>+; 

strcpy((*pri*ptr).nam,"USER15"); 

orimotr**/ 

strcoy((*primptr).nam,"USEP16"); 
pr impt r ♦♦ ; 

strcpy((*orimptr).nam,"USER17"); 

orimptr++; 

strcny((*primptr),narn,"USERl8"); 

Primptr**; 

strcpy((JtPri.'notr).na'n,"USERl9"); 

primptr**; 

strcpy((<primptr).na/n,"USER20"); 

orimptr**; 

strcpy((*prImptr).nam,"USER21"); 

primotr**; 

strcoy((*primptr).nam,"USER22"); 

PrimDtr+>; 

strcpy((*primptr).nam,"USEP23"); 

orimptr**; 

strcoyC(*primotr).nam,"USER24"); 

orimotr++; 

strcpyC (*primptr) .nam, "USER25") ; 
Primptr**; 

strcoy((*primptr).nam,"USER26"); 

primotr++; 

strcov((*primptr).nam,"USEP27"); 

orimptr**; 

strcpy((*primptr),nam,"uSEP28"); 


/ *  we'll  c  n  e  c  K 
/*  are  actually 


to  see  If  any  */ 
present  later  */ 
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/* 


orlroptr**; 

strcDyC(*primotr)  .nafn,"USER2°H)  ; 
or  i^not  rt  ♦  ? 

strcoY(C*primptr) •nam,"USER3^") ; 
pr impt r++; 

strcDVfC^orimptrD.nam^usCRS^J; 

Prl*otrf+? 

STrcoy((*primotr)#nam,"USER30"); 
prirtiDtr  +  +  ? 

strcoy((*DrifnDtr).nam,,,USER32"); 

primptr**; 

strcoy(C*primDtr).nam,"USER33"); 

pri'nptr-M’f 

strcoy((*primDtr).nam,"USER34"); 

prlmotr**; 

strcDVC  (*primDt^).nam,"USER35,,)? 

Drimotr**? 

strcDy((*pri;nDtr).nam,"uSER36"); 

pri^otr++; 

strcDyC(*D^ilnpt^)•nam,"USEP37,,); 

prl'notr**? 

strcpy((*Drimptr).nam,"USER38")? 

primptr**? 

strcDy((*primptr}.nam,"iJSER39")? 

pri*Dtr++; 

3trcoy(C*Drimptr).nam,"USER40"); 

primptr=tempDtr;  / *  reset  pointer  to  start  * / 

XD=fopen("prifnitlv.dat",,,r")  ?  /*  net  additional  info  fro*  dis<*/ 

t scant  (  xp ,  "%d"  ,&priTi.coijnt ) ; 
for  (1  =  0;  i<or im. count ;  1«mO 
< 

t scanf Cxd, "%s  %d  %d  %d  %d", C*primptr) .nam2,&(*primotr) .numoar, 

&(*priTptr).outp,&featuresCi3  Col ,&featuresCi3  Cl 3 ) ; 

or imotr++; 

> 

fclose(xo); 


APPENDIX  C. 


STRUC 


PRIMITIV 


BLDEL 


VOHL  COMPILER  DATA  FILES 


The  primitive  library  containing  VOHL 
structural  descriptions;  the  expanded 
primitive  descriptions. 

DAT  The  new  data  file  containing  the  user's  names 
for  the  primitives  and  various  other 

information . 

The  block  delays  for  each  primitive;  that  is, 
the  propagation  delay  from  each  input  to  each 
output . 
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MODULE  :  INVENT  ; 

INPUTS  :  A  ; 

OUTPUTS  :  *  ; 

types:  ; 

< 

0; 

} 

MODULE  :  and  ; 

inputs  :  a  ,  b  ; 

OUTPUTS  :  Z  ; 

TYPES:  ? 

< 

0? 

> 

MODULE  :  OR  ; 

INPUTS  :  A,  B  ? 
OUTPUTS  :  Z  ; 

TYPES  :  : 

{ 

o: 

> 

MODULE  :  ANDTHREE  ; 

inputs  :  a,  e,  c  ; 
outputs  :  Z  ; 

TYPES  :  ; 

< 

0  J 
> 

module:  manothre  ; 

INPUTS;  A,  9,  C  ; 
OUTPUTS  :  z  ; 

TYPES  :  ; 

< 

0; 

> 

MODULE  :  OPTKRFE  ? 
INPUTS  :  A,  R,  C  ? 
OUTPUTS  :  Z  ? 

TYPES  :  ; 

< 

0  ? 

> 

MODULE  :  EX  0  P  ? 
INPUTS  :  A ,  R  ; 
OUTPUTS  :  Z  ; 

TYPES  :  ; 

{ 

o  ; 

) 

MODULE  :  NANO  ; 
INPUTS  :  A,  B  ; 
OUTPUTS  :  7  ; 

TYPES  :  ; 

{ 

0  ? 

> 
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MODULE  :  nor  ; 
INPUTS  :  A,  r  : 
OUTPUTS  :  7  ; 
TYPES  :  ; 

{ 


o  ; 
> 


MODULE  :  ANDFOUR  ; 
INPUTS  5  A ,  B,  C,  D  ; 
OUTPUTS  :  Z  ? 

TYPES  :  ? 

{ 

o  ; 

> 

MODULE  S  NANDFOUP  ? 
INPUTS  :  A  ,  B ,  Z ,  D  ; 
OUTPUTS  :  Z  ; 

TYPES  :  ? 

{ 

0  ; 

> 

MODULE  J  OPEOUP  ; 
INPUTS  :  A,  B ,  C,  D  ? 
OUTPUTS  :  Z  ? 

TYPES  :  ; 

< 

0  ? 

> 

MODULE  :  SRBLOCK  ; 
INPUTS  :  S,  R,  X  ; 
OUTPUTS  5  0,  DC,  Y  ; 
TYPES  :  ; 

{ 

3  =  Manxes,  DC)  ; 

DC  =  NAM0C3,  P)  ? 


*0DULS  :  RETDBLO  ; 

INPUTS  :  CLP,  D,  CLK,  OUMi,  DUH2,  DUM  3 
OUTPUTS  :  0,  3C,  DPI,  DM2,  D.*3  ; 

TYPES  :  INTERNALS  :  X,  Y ,  W,  Z  ; 


X 

= 

NANDCZ,  Y) 

• 

Y 

r 

nandthrfc  X 

,CLR, 

CLK) 

= 

NANDTHRECY, 

CLK, 

Z)  ; 

Z 

= 

NANOTHRECW, 

CLR, 

D)  ; 

3 

= 

N  A  M  D  (  Y  ,  30 

$ 

3C  =  (NAMDTHREC3,  CLP,  W)  ? 

MODULE  !  JXFE  ; 

INPUTS  5  J  ,  K  ,  CLK  ; 

OUTPUTS  :  3  ,  3BAP  ; 

TYPES  :  INTERNA  :  SI  ,  R 1  ,  D1  ,  D2  ; 

{ 

si  =  KAWDTMD  f  05  A  R  ,  I  ,  CLK  )  ; 

R 1  =  NAEDTHP  C  CLK  ,  K  ,  Q  )  ; 

3  ,  3BAR  ,  D1  r  SR  BLOCK  C  SI  ,  PI  ,  02 
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> 

MODULE  :  FULLADO  ; 
INPUTS  :  A  ,  3  ,  CTN 
OUTPUTS  :  s  ,  co  ; 
TYPES  :  interna  :  x  , 
{ 

X  ,  Y  s  HALFAOD  (  A  , 
S  ,  Z  -  WALFADD  (  X  , 
CD  =  DR  (  Z  ,  Y  )  ; 

> 

NODULE  :  HALF  A  DO  ; 
INPUTS  s  c  ,  o  ; 
OUTPUTS  :  T  ,  COH  ; 
TYPES  :  ; 

{ 

T  =  EXDR  (  C  ,  D  )  f 
COH  =  AND  (  C  ,  D  )  ; 
> 


Y  ,  Z  ; 

9  )  ? 

Cl N  )  ; 


160 


1  5 

READIN 

AND 

OR 

NAND 

NOR 

INVERT 

EXOR 

ANDTHRE 

NANDTHR 

SF.BLOCK 

RETDBLO 

ANDFOUR 

NANDFOU 

ORTHREE 

ORFOUR 


0  2  0 
1  2  0 
1  2  0 
1  2  0 
1  2  0 
1  2  0 
1  2  0 
1  2  0 
1  2  0 
3  2  1 
5  2  1 
1  2  0 
1  2  0 
1  2  0 
1  2  0 


0 

2 

2 

2 

2 

1 

2 

3 

3 

3 

6 

4 

4 

3 

4 


The  Data  File  PRIMITIV.DAT 


The  Data  file  BLDEL 


AND 

2 

0  0  11 
10  11 
OR 
2 

0  0  11 
10  11 
NAND 
2 

0  0  11 
10  11 
NOR 
2 

0  0  11 
10  11 
INVERT 
1 

0  0  11 
ANDTHRE 
3 

0  0  11 
10  11 
2  0  11 
NANDTHR 
3 

0  0  11 
10  11 
2  0  11 
SRBLOCK 
8 

0  0  2  2 
2  0  2  2 
0  12  2 
2  12  2 
112  2 
12  2  2 
0  2  2  2 
2  2  2  2 
RETDBLO 
24 

0  0  2  2 
2  0  2  2 

3  0  2  2 

4  0  2  2 

5  0  2  2 
0  12  2 
2  12  2 

3  12  2 

4  12  2 
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5  12  2 
0  2  2  2 
12  2  2 
2  2  2  2 

3  2  2  2 

4  2  2  2 
0  3  2  2 

2  3  2  2 

3  3  2  2 

4  3  2  2 
0  4  2  2 

2  4  2  2 

3  4  2  2 

4  4  2  2 

5  4  2  2 
ANDFOUR 
4 

0  0  11 
10  11 
2  0  11 

3  0  11 
NANDFOU 

4 

0  0  11 
10  11 
2  0  11 
3  0  11 
ORTHREE 

3 

0  0  11 
10  11 
2  0  11 
ORFOUR 

4 

0  0  11 
10  11 
2  0  11 
3  0  11 
EXOR 
2 

0  0  11 
10  11 
END 
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APPENDIX  D 


TWHEEL.C 


SIMULATOR  SOURCE  CODE 


The  timing  wheel  main  module. 


***************4 


(«S*******t**XS*S******4 


Timina  wheel  Proa ram 
for  the 

Multilevel  Logic  Simulator 


Version  1*1  25  Aua  86 

Original  Version  by  Ausif  s,ahmood  at  wsn  for  U'JIX  VAX 
Microcomouter  versions  and  buo  fixes  by  Scott  Kellv  at  mps 


/ 


int  ..mien  =  250  ; 
int  C 2501  ; 

•include  "stdio.h" 

/* 

This  is  the  timing  wneel  program.  First  it  initializes  the  circuit 
inter-connections  in  terms  of  descriotors  (descriotor  interconnec¬ 
tions  are  given  in  a  file  "p2a").  The  circuit  is  then  simulated 
according  to  the  input  data  given  in  a  file*  Event  directed  simula¬ 
tion  is  used  for  maximum  time  efficiency  -Ulric n's  algorithm. 
Simulation  results  are  directed  to  a  file  ,  */ 


•define 

inputs 

2 

/* 

2  inputs  per  descriptor  allowed  */ 

•define 

maxor im 

100 

/* 

maximum  number  of  Primitives 

*/ 

•define 

maxdescrot  250 

/* 

maximum  number  of  descriptors 

*/ 

•define 

maxsynb 

50 

/* 

symbol  table  for  Drintina 

*/ 

•define 

mde lay 

100 

/* 

maximum  oossible  delay 

*/ 

•define 

m  d  e  p  t  h 

250 

/* 

concurrent  actions 

*/ 

•define 

naxma t 

400 

/* 

delav  matrix  units 

*/ 

•define 

maxinout  100 

/* 

max  number  of  inputs 

*/ 

•define 

maxtw  400 

/* 

timing  wheel  data  structure 

*/ 

•define 

maxou t 

32 

/« 

maximum  number  of  outputs  cer 

prim*/ 

/* . */ 

struct  matrix  (  /  *  delay  matrix  for  a  primitive  *  / 


int  rdelayO,  rdelayl,  fdelayO,  fdelavl  ? 
struct  matrix  *  m  a  t  p  t  r  ; 

)  ; 


/*  —  ........ - -RECORD  ORGANIZATION  FOR  A  DESCRIPTOR - *  / 

struct  descrpt  < 

int  (*ofunc)()  ?  /*  pfunc  is  pointer  to  the  function  */ 

/*  i.e.  code  for  the  Primitive  */ 

lnt  oaramC7]  ;  /*  parameters  for  the  function  */ 

/*  paramCOl  =  Inputl  value  */ 

/*  paramCl)  =  lnout2  value  */ 

/*  paramC23  =  rlsel  delay  */ 

/*  paramO)  =  falll  delay  */ 

/*  paramC4]  =  rlse2  delay  */ 

/*  paramCS]  =  fall2  delay  */ 

/*  oaramC63  *  MODE  (  0  =  normal  )  */ 

/*  (  1  =  uncertain  If  low  )  */ 

/*  (  2  =  uncertain  If  high)  */ 

/*  (  3  =  stuck-at-0  fault)  */ 

/*  C  4  =  s  tuck-at- 1  fault)  */ 

struct  matrix  *mDtr  ;  /*  mptr  Is  Dolnter  to  delay  matrix  */ 

struct  descrpt  *header  ;  /*  header  is  a  pointer  to  a  descriptor*/ 

struct  descrpt  *r ight 0  ;  /*  2  rlqht  pointers  ner  descriptor  */ 
struct  descrpt  *riohti  ?  /*  bloc*.  */ 

int  Devalue  t  /*  field  Indicator  for  header  pointer  */ 

int  revalue C input s ]  r  /*  field  indicators  for  right  Pointers*/ 

Int  present.outDu t  J  /*  present  output  of  a  primitive  */ 

struct  descrpt  *ext«.ptr  ;/*  extension  pointer  for  multi-  */ 

/*  descriptor  primitives.  */ 


int  earenr 


/*  parent  descriptor  nunoer 


*/ 


>  ? 

/* . . . - . . . . . -- . . . */ 


—  —  —  — TIMING  WHEEL  structures - */ 

struct  newstac*  <  /*  ne*_values  for  multi -output  */ 

int  newvalue  ;  /*  functions  attached  to  timina  *heel  */ 

struct  newstac<  *newotr? 

>  ? 

struct  timers tac<  <  /*  timina-wheel  structure  */ 

struct  descrpt  *dPtr  ?  /*  dDtr  =  pointer  to  the  descriptor  */ 

int  ne*val,  sflaq  ;  /*  newvai=  newvalue#  sfiaqs  schedullnq*/ 

struct  newstac*  *  n  n  t  r  ?  /  *  f  1  a  q ,  nDtr  =  pointer  to  newstacK  *  / 

struct  time-stac*  *totr  ; 


>  ; 

/%  —  - - - - - — - - — - - - - «/ 


FILE 

*  r  d 

/* 

Read 

pointer 

to  input  data  file 

*/ 

FILE 

*  wo 

• 

> 

/* 

write 

pointer 

to  output  data  file 

*/ 

/*• 


-SYMBOL  TABLE  RECORD  STRUCTURE- 


-*/ 


struct  symb-tah  < 
char  name C 8]  ; 

int  index  : 

> 


/*• 


/*  name  of  the  line 

/*  index  =  i  of  the  associated  desc. 


*/ 

*/ 


■  */ 


.-..-GLOBAL  PAPAMETERS----  — 

struct  descrpt  desc CmaxdescrDt ] ?  /*  STORAGE  FOR  STRUCTURES  */ 
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struct  time. stack  tst ac<  rmaxtw]  ; 

struct  newstack  ns tack  Cmdeoth]  ;  /*  timing  wheel  structures  */ 

struct  matrix  matx [maxmat ]  ; 

struct  symb.tab  svm[maxsymb]  ; 

struct  descrpt  *Dtr,  *parent.ptr  ; 

struct  new stack  *n*Dtr,  *fref,  *npptr,  *nwlpt  ; 

struct  time. stack  *endt Cmdelay] ,  *begint Cmdelay] *  *freft  ? 
struct  time. stack  *savt,  *fwdt,  *temot  ; 

int  num.outs  ;  /*  #  of  outputs  for  a  function  */ 

int  time,  sav.time,  sim.time  ? 

int  sav. write  ;  /*  write  flag  for  Drinting  output  names*/ 

int  f .out Cmaxout]  ?  /*  outputs  returned  by  each  function  */ 

int  f f .out Cmaxou t]  ; 
int  delCmaxout],  delay  ? 

int  t iming. wheel ,  depth Cmdelay]  ; 

/*  deothC]  indicates  the  number  of  concurrent  actions  in  1  slot  */ 
int  num. input,  inpt Cmaxinput 1  ,  inptc Cmaxinput ]  ; 

int  hashtable C l 00] ;  /*  simple  hashtaole  for  variable  names  */ 

int  hasncount?  /*  number  of  items  in  hashtable  */ 

/*  num.lnDut  =  number  of  inputs  in  the  input  data  file  */ 

*/ 


/*  inptn 


array  holding  values  of  inputs 


/*  inptcC)=  arrav  holding  hash  value 


of  Inputs 


*/ 


In t  num. print  ,  out. interval  ; 
char  toicenbuf  f  C9)  ; 

Int  endinputname  ; 

/*  nun. print  =  number  of  lines  to  be  printed  out  */ 

/*  out.interval=interva 1  after  which  each  output  is  to  oe  printed*/ 


int  ( *onf n Cmaxprim] ) O  ;  /*  pointer  to  primitive  functions  */ 

int  oncnt  ; 


int  ANDO  ; 
int  OR ( )  ; 
int  INVERT ( )  ? 
•include  wftvpeM 

int  f m o d e ( )  : 
int  f del. ins ( )  ; 
int  insertO  ; 
int  indataC)  ; 

int  read.inoutn  ; 
int  wr lte. output O 
int  hashfO  ; 
int  testO  ; 
int  oetnaneO  ; 


/*  mode  behavior  simulation  */ 

/*  finds  delays  applicable  to  a  change*/ 
/*  insert  the  desc.  in  prooer  slot  */ 
/*  inout  data  retrieval  for  descs,  */ 


*/ 


/* - - —  —  ..Mft  IN  PROGRAM------ - - */ 

nain(argc,arav) 
int  argc  ; 
char  *arovC]  ; 

{ 

int  i,  j,  k,  fx,  field.no,  duminpC32J  ; 
int  flag,  sav.value  ,  savh; 

int  sav. depth#  endread,  numl,  num2,  num3,  num4  ; 

FILE  * wo  ; 

struct  descrot  *sav.otr,  *orev.ptr  ? 
struct  matrix  *otrm  ; 


char  z 


/♦ - - - 8 E  j T N - - 

hashcount=o? 
for  C 1  =  0  ?  1 < 1 00 ;  i  +  +  ) 
hashtableCi)  =  -1? 

ro  =  f ooenCarqv C l ]  ,  w r"  )  ;  /*  is  the  input  data  file  */ 

pnfnCO]  r  read.input  ; 
onfnCl]  =  AND  ; 
onfnC2]  =  OR  ? 
onf  n  CM  =  INVERT  ; 

♦include  "faddr" 

pr intf  C "  \n " ) ; 

orintfC"  ........... .......... - .... — .....  \n”); 

orintfC"  I  HULTI-SIM  version  1,0  -Nov.  l,  1984  |\n")? 

orintfC"  - - - - \n«). 

orintfC"  \n")? 

orintfC"  Loadino  Compiler  Data...\n")? 

printfC"  \n")? 

/* . INITIALIZE  DELAY  MATRIX . -*/ 

for  Ci  =  0;  i  <  max mat?  i  =  I  +  1) 

< 

matx Ci] • rdelayO  r  -l  ; 
matx  Cl] . f delayO  =  -1  ; 
mat* Ci] , rdelavl  =  -1  ; 
matx Ci] . f delavi  =  -1  ; 
matx C i] • matptr  =  null  ; 

> 

/* - . . . . . . . . . . . ----*/ 

/*-- - ------------INITIALIZE  descriptors - - - -----*/ 

for  Ci  =  0?  i  <  maxdescrpt  ;  i  =  i  +  1  ) 

( 

for  (j  =  2?  j  <  6  ?  1=1+1) 

desc Ci ], param C j ]  =  -1  ?  /*  initialize  Darameters  to  -1*/ 

for  Cj  =0;  j  <  inouts  :  j  =  j  +  1  ) 
desc Ci ] . r.va lue C 1 ]  =  0  ; 
desc C 1] . param CO]  =  2  ; 

desc C i] . param C 1 ]  =  2  ;  /*  initialize  inputs  tD  2's  */ 

desc C i] , Daram C6]  =  0  ;  /*  normal  mode  of  operation  */ 

descCi], header  =  i(descCi])  ? 
desc C i] . h.va lue  =  0  ? 
descCi],oarent  =  i  ? 

desc Cl] • present. output  =  2  ;  /*  2  stands  for  don't  care  */ 


descCi) , ext.Dtr  =  NULL  ? 
descCi] . motr  =  null  ; 

> 

. . */ 

Read  input  line  names----------------------*/ 
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endinputname  =  n 
1  =  0? 


ihile ( 1 ) 

< 

getnameO  ; 

InptcCj]  =  hasnf(toKenouff)? 
j  =  j  +  1  ; 

if  ( endi nout name  ==  1) 
break  ; 

> 

num. input  =  j  ; 

/* . . . . . . . . . . 

/*-- - -INITIALIZE  TIDING  WHEEL  i  STORAGE  POOL----------------*/ 

for  (  i  »  0?  i  <  mdelay  t  i  =  i  +  1  ) 

{ 

depth  C  i )  =  -i? 
begint  C i 3  =  NULL  ; 

endtCi]  =  null  ; 

> 


j  3  naxtw  -  l  ; 
for  (  i  =  0;  i  <  j 
{ 

tstack  Ci) .newval 
tstack  Ci) , sf lag 
tstack Ci) • tptr  = 
ts tack Ci) , notr  = 

> 


t  i  =  i  ♦  1) 

=  2  ; 

=  2  ; 

&(tstackCi  +  l) )  ; 
NULL  ; 


fref  t  =  fc(  tstackCO)  )  ; 
/* - - - 


*/ 


/* - .--storage  poor.  FOR  NSTACK ( future  multi-output  values)-----*/ 

j  =  mdepth  -  1  ; 

for  (  1  =  o;  i  <  j;  i  =  i  +  l) 

ns  tack C 1 ) . newptr  =  SrCnstackCi  ♦  1))  ; 

fref  =  s,(nstack  CO)  )  j  /*  fref  points  to  the  first  free  nstack  */ 

/*--- . . . . - . . . . 

/*---- - - -----INITIALIZE  CIRCUIT  CONNECTIONS-— ------------*/ 

wq  =  f  openC  "sirndata"',  "r  "  )  ; 

endread=0; 
while ( endreadaao ) 

{ 

fseanfCwa,"%d",&numl)  ; 
switch  Cnumi) 

< 

case  1  :  f  scanf  C  wq ,  "*d  %d  %d",inum2,  6nuir3,  &nu-n4)  : 
switch  Cnum3) 

< 

case  8  :  descCnum2).  header  =  &CdescCnU'n4l); 
break  ; 

case  9  :  if  Cnum4  a:  o) 

desc f num2) • r iohtO  =  ptr  ; 
else 

desc Cnum2) .rightl  =  otr  ? 
break  ; 


1  71 


case  11  jdesc CnuT2 1 . h.va  lue  2  hut4  ; 
br*ak  ; 

case  12:  desc[nu'n21.r_valuermim4}  r  savh  ; 
break  ; 

case  15:  desc  C nu t»2 ]  .  ext.pt  r  =  &  ( desc C n m ^ 4 3  )  ; 
break-  ; 

case  16:  desc Cnun23 . par ent  =  num4  ; 
b  r  a  a  <  ; 

default:  If  (num3  <  7) 

desc Cnum2] . oaran Cnum33  *  nun4  ; 
else 
< 

printfC"  error  In  decoding  code\n") 
end re ad  =  1  ; 
break  ; 

) 

> 


break  ; 

case 

2  : 

f  scant  (wq,  "%d"  ,£nu-n2)  ; 
savh  s  desc  Cnuit2  J  .revalue  ; 
b  r  e  a  <  ? 

case 

3  : 

f  scanf  ( wq ,  "%d"  , &nu-n2 3  ; 
ptr  =  desc Cnum23 .header  : 
break  > 

case 

4  : 

f  scanf  (wq,  "%d"  ,6nuv2  )  ; 
ptr  =  & ( desc Cnum23 )  ? 
break  ; 

case 

5  : 

f scanf (wq , "%d  %d",&num2,  &num3)  ; 
( *ot r ) . param Cnum23  =  num3  ; 
break  ,* 

case 

6  : 

f  scanf  ( wq  ,  "%d"  , &nun2  )  ; 
otr  =  desc Cnum23 . ext.ptr  ; 
break  : 

case 

7  : 

otr  2  (*otr ) .ext-Ptr  ; 
break  : 

case 

8  : 

ptrm  s  (*Dtr).,notr  ; 
break  ; 

case 

9  : 

otrm  s  ( ♦Dtr'n)  .matotr  ; 
break  ; 

case 

10: 

t scanf  (wa ,  "^d"  , &nuT»2)  ; 

(*ptr?n) .  rdelayO  =  num2  ? 
break  ; 

case 

11 : 

f  scanf  "%d"  ,&nui>2)  ; 

( *pt r*) . f de layO  2  nus»2  ? 
break  ; 

case 

12 : 

fscanf(wq,"^d",&nuTi2)  ; 

(♦ptrn) . rdelayl  2  num2  ; 
break  ; 

case 

13: 

f  scanf  C  wq ,  "%d  ** , &num2 )  ; 

(*otrm) . fdelayl  2  num2  ; 
break  ; 

case 

14: 

fscanf(wq,"%d,,,6nufn2)  ; 
(*ptr).motr  2  & ( ma tx Cnum23 )  ; 
break  ; 

case 

in 

f scanf ( wq , "%d  %d",&num2,  &num3)  ; 
matx Cnum23 .matptr  2  & ( ma t x Cnum3 3  ) 

case 

16 

case 

17 

case 

IS 

case 

19 

case 

20 

case 

21 

case 

22 

case 

23 

case 

24 

case 

25 

case 

26 

case 

27 

case 

29 

case 

29 

case 

30 

case 

31 

case 

32 

case 

33 

case 

50 

default : 


o  r  e  a  <  ; 

fscanf(*3,',%d  %  d  "  ,  £.  n  u  t.  2  ,  S  n  u  n  3  )  ; 

•atx Cnu^23 • rdelayo  s  nun3  ; 
b  r  e  a  <  ; 

f  scanf  (  vq,  "*d  %d",snu,n2,  &nun3)  ; 
■natxCnu^l.fdelayO  =  nun  3  ; 
b  r  e  a  <  ; 

f  scanf  ( vq  ,  "id  |d",&nu^2,  &nu;n3)  ; 

■natx  Cbur2J  .  rdelayl  =  nun3  ; 
b  r  e  a  <  ; 

fscanfCwa,**?^  %d",jnu*2,  Snu*n3)  ; 
*aatxCnun.2Kfdelayl  a  n  u  n  3  ; 
b  r  e  a  <  ; 

d  e  o  t  n  C  0  ]  =  debt n CO]  ♦  l  ; 
b  r  e  a  <  ; 

b  e  o  i  n  t  C  0  ]  =  freft  ? 
b  r  e  a  <  ; 

(MendtCO] ))*totr  =  freft  ; 
brea<  ; 

endtCO]  =  freft  ; 
b  r  e  a  <  ; 

freft  =  (*freft).totr  ; 
b  r  e  a  <  ; 

(*(endt  f03 ) )  * tptr  =  MULL  ; 
b  r  e  a  <  ; 

f scanf ( *3 , "*d" , inun2  )  ; 

(*(endt  CO]) )  .dotr  =  S.  C  desc  Cnua2] )  ; 
b  r  e  a  <  ; 

fscanf(*d,"%d,,,&nun2)  ; 

(*(endtCO])).newval  =  n  u  **  2  ; 
b  r  e  a  <  ; 

f  scanf  ( *d ,  "*d  %d",£nus2,  &nun3)  ; 

/*  fscanf(*o,  "  %  c " ,  &  z )  ;  if  output  n  a  n  e  s 

z=3etr(»d) ; 
z=set:( #3) ; 

/*  ’'ess  up 

sys Cnun23 . nase  [nun31  =  z  ; 
d  r  e  a  *  ; 

f scanf (wn , *%d  %d*,£nmr,2#  &nun3)  ; 
s  v  n  t  n  u  n  2  ]  .  index  =  n  u  n  3  ; 
brea<  ; 

sav.*rite  =  0  ; 
b  r  e  *  <  ; 

fscanfCwd#p,%d"/&nu-n2)  ; 
n us. print  =  nun 2  ; 
b  r  e  a  <  ; 

out. interval  =  1  ; 
brea<  : 

fscanf C«b, "*d  %d",&nua2,  Snun3)  ; 
des c Cnu^2l • Pf unc  =  pnfntnun31  ; 
b  r  e  a  <  ; 
endread  =  1  ; 
b  r  e  a  <  ; 

brlntfC  error  in  input  data  decoding  n")  ; 


/’  end  -nile  */ 


fclose(wa)  ; 

/♦ . . 


*/ 


wo  s  f ooen ( arav t 2) , "w")  ;  /*  is  the  output  data  file  */ 

/*  connections  */ 

printfC"  Welcome  to  MultiSimPC  \n"); 

orintfC"  \n")? 

time  =  -1  ; 
timing. wheel  =  -1  ; 
sav.time  =  0  ; 

printfC"  Please  enter  Simulation  time:  ")  ; 
scant ( "*d" ,&sim. time)  ; 

DrintfC"  \n")  ; 

---INITIALIZE  INPUT  DESCS.  IN  TIMING  «HEEL - --- 

for  (  i  =  0:  i  <  num. input;  i  =  i  +  1  ) 

( 

ptr  =  tCdescCiJ)  ;  /*  beqinninq  descs.  =  input  descs,*/ 

(*( (*Ptr) .Pfunc) ) (i)  ;  /*  call  to  read. input  */ 

) 

/*---- - ................ .......... — ..................... 

timing. wheel  =  0  ? 

/  * - - - - ...................................... 


/* - - - - - BEGIN  TIMING  wheel---------- - - - --*/ 

while  (  time  <=  sim.time  ) 

<  /*  begin  while  time  <  sim  time  */ 


*/ 

*/ 

*/ 


if  (timing-wheel  >=mdelay) 

timing. wheel  =  0  ;  /*  Timing  wheel  is  circular  */ 

while  C  timing. wheel  <  mdelay  ) 

<  /*  begin  1  loop  of  timing. wheel  */ 

time  =  time  +  1  ; 

if  (time  >  sim.time) 
breavc  ; 

sav. depth  =  depth ( timina. wheel )  ; 

savt  =  begint C timing. wheel ]  ?  /*  otr  to  first  element*/ 

while  (  depth (timing. wheel)  !=  -1) 

{  /*  while  all  row  slots  have  been  updated  */ 


/* - - - ....... - BEGIN  UPDATE - ---- - -----*/ 

/*  All  descriptors  connected  to  the  current  descriptor  are*/ 
/*  updated  with  the  'future  value'  from  the  timing  wheel  */ 
/*  if  the  present  value  differs  from  the  'future  value'  */ 

fwdt  =  begint Ctiming.wheel)  ; 


1  74 


Ptr 


C*f *dt ) . lotr  ; 


beqint (tiring. wheel]  =  C * (beqint (timing. wheel] )). tDtr  ; 

/*  beaint  points  to  the  next  element  In  the  current  row  */ 


- - ---SCHEDULE  INPUT  READING-  — . . */ 

if  ( ( (*f wdt) ,sf lag)  ==  t) 

<  /*  if  scheduling  flag  is  1,  schedule  the  descriptor  */ 

(♦((♦ptr). Pfunc)H(*ptr). parent)  ? 

(♦fwdt) ,sf lag  =  2  ; 

/*  de-assert  scheduling  flag  */ 

> 

/* . . . . . . . - . 1/ 


depth (timing. wheel]  =  depth C t im j ng.whee 1 )  -  1  ; 

flag  =  0  ;  / *  flag  =  1  indicates  a  multi-output  desc.  * / 

sav. value  =  ( *f wdt ) . newval  ; 

/♦  sav. value  =  future  value  from  tim,  wheel  */ 

/*  i.e,  value  to  oe  replaced  for  present  output  */ 


while  (1) 

I.  /*  begin  while  C-list  for  each  output  is  updated  */ 

sav. otr  =  otr  ? 

if  (sav. value  Is  -1) 

< 


if  ( C C *otr) , present-output )  1=  sav.value) 

<  /♦  change  has  occured  ♦  / 

Dtr  =  ( *Dtr) .header  ; 

if  (ptr  sav.ptr) 

(  /*  if  not  end  of  circular  list,  then  begin  */ 

(*Dtr) . oaram C ( *sav. ptr) ,h. value!  =  sav.value  ; 

/♦  input  no,  pointed  to  by  the  desc,  is  undated  ♦  / 

prev.ptr  =  ptr  ; 

switch  (( ♦sav. ptr ), h. value ) 

{ 

case  0  :  otr  =  (*otr ), righto  ; 

field.no  =  (*prev.ptr) ,r_value(0]  j 
break  ; 

case  1  ;  ptr  s  (♦ptr),rightl  ; 

fleld.no  =  (*prev.ptr ) , r.v3iue ( 1 3  ; 

> 
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while  (1) 

{  /*  while  peoin  */ 
if  (Dtr  a=  sav. ptr) 

/*  if  end  of  circular  list,  then  get  out  */ 
break  ; 

( *otr ). par am ( fie  ld.no]  =  sav. value  ; 

/*  uodate  input  with  'future  value'  */ 

prev.ptr  =  ptr  ; 

switch  (fleld.no) 

( 


case 

0  : 

otr  3  ( *ptr )• righto  ; 

fx  s  (*orev.ptr ) .r.valueCO)  ; 

break  ; 

case 

1  : 

Ptr  =  (*otr),rinhtl  ; 

> 

fx  =  (*orev.ptr ) , r-value  ( 1 1  ; 

field. 

no  = 

f  x  ; 

>  /* 

end 

while 

*/ 

/* 

end 

then  (if  not  end  of  C-llst) 

*/ 

/* 

end 

if  change  has  occured 

*/ 

/* 

if 

sav. value  I =  -1 

*/ 

If  (flaq  ==  1) 

< 

if  ( (*nwptr ) .newptr  s=  NULL) 

break  ,*  /*  if  nstack  has  no  more  extension  */ 

nwptr  =  (*nwptr)#newptr  ; 

> 

else 

< 

if  ( C*f wdt) , nptr  =3  NULL) 
b  r  e  a  <  ; 

nwotr  =  C*fwdt),notr  ; 
flag  s  l  ; 

/*  flaq  is  asserted  for  a  multi-outout  function  */ 

> 

ptr  =  (*sav.ptr) .ext. ptr  ;  /*  if  multi-outout  case  */ 

sav. value  s  ( *nwptr ) .newvalue  ? 

>  /*  end  update  of  all  descs.  in  C-iist  */ 

>  /*  end  of  update  of  one  row  of  T,w#  */ 

/*--- - -  END  UPDATE  —  ----------------  —  —  ------  —  --*/ 


depth ( timing. wheel  3  =  sav. depth 
begint (timing. wheel]  3  savt  ? 


/* - - - ---FXFCUTIDN  phase--- - - - - - */ 

/*  Second  nass  -Schedule  tne  descs*  in  s  insert  in  */ 

/*  Proper  time  slot  if  outout  of  current  desc,  has  changed  */ 


while  (  depth (timing. wheel]  !=  -t) 

{  /*  begin  execution  of  one  row  of  tiding  wheel  */ 


fwdt  =  beaint (timing. wheel]  t 

begint (timing. wheel]  =  C*  C  beaint  C  timing. wheel]  ) ) •  tDtr  ? 

Dtr  =  ( *f wdt ) , dptr  ; 

depth  (timing. wheel]  =  depth ( timing. wheel]  -  1  ; 

sav. value  =  C*f wdt] .newval  ? 

/*  future  value  */ 

flag  =  0  ?  /*  flag  =  1  indicates  multi-output  desc.  ♦/ 


while  Cl) 

<  /*  beqin  while  not  end  of  C-list  for  all  outputs  */ 

sav. ptr  =  otr  ; 

if  (sav. value  »s  -1) 

< 

if  C C C *Ptr ) . present. output )  !=  sav. value) 

<  /*  change  has  occured  */ 

(*otr ). present. output  s  sav. value  ; 

/*  update  present  outout  */ 

ptr  =  (*ptr). header  ; 
if  Cotr  i=  sav. ptr) 

{  /*  if  not  end  of  C-list,  then  begin  */ 


/* - SCHEDULE  DESC. - - - */ 

parent. ptr  =  & (desc ( C*ntr ) .parent] )  : 

(*( (’parent. otr). pfunc))(0,duminp,f. out)  ; 

/* - - - ..... - - .... - .... - .1/ 


fmodeC)  ;  /*  mode  simulation  */ 

fdel. i ns  CC*sav.ptr).h. value)? 

/*  find  delays  and  insert  in  proper  slot  */ 

prev.ptr  =  Dtr  ; 

switch  (( *sav. ptr ). h. value ) 

< 
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case  o 


case  1 


> 


Dtr  =  (*otr).rihhtn  ; 

fleld.no  =  C *orev_ Dtr ). r .value  CO]  ; 

break  ; 

otr  =  (♦ptr),ridhtl  ; 

field.no  =  ( *prev. ptr ). r. value  Cl]  ? 


while  C 1 ) 

{  /♦  while  begin  ♦  / 

it  Cbtr  ==  sav.ptr)  /♦  if  end  of  C-list,  quit  */ 
break  ; 


/*  — -SCHEDULE  DESC *  -qet  all  Parameters  first  --♦/ 
parent. otr  =  £(desc( (♦otr) .parent]  )  j 
(♦((♦parent. ptr).Dfunc))(Ofduminp,f. out)  ; 

/♦-- . . - . . -♦/ 

fmode()  ;  /♦  simulate  mode  behavior  ♦  / 

f del. ins ( field.no)  ? 

/♦  find  delays  and  insert  in  proper  slot  ♦/ 

prev.ptr  =  ptr  ? 

switch  (field.no) 

< 

case  0  ;  ptr  =  dotr), righto  ; 

fx  =  (♦prev.otr) , r.value CO]  ; 
break  ; 

case  1  :  ptr  =  ( ♦otr) • right  1  i 

tx  s  (♦prev.ptr)  ,r. valued)  ; 

> 

field.no  =  fx  ; 

)  /♦  end  while  */ 

>  /♦  end  then  (if  not  end  of  C-list)  */ 

>  /*  end  if  chanoe  has  occured  ♦/ 

>  /♦  end  if  sav. value  !=  -1  */ 


if  (flap  1)  /♦  multi  output  case  */ 

< 

if  ( ( ♦nwDtr ) ,newptr  ==  mull) 

( 

/♦  fref  storage  for  nstack  ♦/ 

(♦nwotr),newotr  =  fref  ; 
fref  =  nwotr  ; 

break  ;  /♦  If  all  outputs  have  been  handled,  ouit  ♦/ 

> 

/♦  free  storage  for  the  previous  nstack  ♦/ 
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roptrsvwotr; 
n  w  o  t  r  =  (*n*>ptr),npwptr  ; 

(<nDrtr),nevotr  =  f  r  e  f  ; 
fref  =  nootr  ; 

> 

else  /*  If  flaa  Is  0  */ 

{ 

If  ((*f wdt) .nptr  ==  MULL) 
break  ; 

nwptr  =  (*fwdt),nptr  ? 

flaa  =  1  ?  /*  multi-output  case  */ 

> 

ptr  =  ( *sav.ptr ) . ext.ptr  ; 
sav. value  =  ( * nwotr ) * newvalue  ; 

>  /*  end  (C-list  scan  for  all  outputs)  */ 


/♦-------------Free  storage  for  current  tstack 

tempt  =  freft  ; 
freft  =  fwdt  ; 

(♦freft). tot  r'  =  temot  ; 

/* - - - - - - - - - - - - - - - - --♦/ 


>  /*  end  of  one  row  of  timing  wheel  */ 


write. output ( )  ;  /*  print  results  */ 

begin t C timi ng.wheell  a  NULL  ? 
endt C t lmlno.wheel )  =  NULL  ; 
timing. wheel  =  tlmlnq. wheel  ♦  1  ; 

/*  move  to  next  row  of  tlmina  wheel  */ 

>  /♦  end  of  1  loop  Cvertlcal)  of  timing  wneel  ♦  / 

>  /*  end  time  <  si: n  time  ♦  / 

f close ( ro )  ; 
fclose(wp)  ; 

>  /♦  end  of  main  orooram  ♦  / 

/♦ - - - - - - - - - - - - - ♦  / 


/♦ - f  mode( )- - - - - - ♦  / 

/*  It  finds  outputs  for  each  descriptor  according  to  its  mode  */ 
t mode ( ) 

< 

int  it  mode  ; 

struct  descrpt  ♦xtptr  ? 

xtDtr  =  oarent.ptr  : 

for  (1  =  0;  1  <  nun. outs  ?  1  =  1  ♦  1) 


mode  =  (*xtotr ) . Daram  (6 J  ? 
switch  (mode) 


case 

0 

J 

f.outti]  ■ 
urea* : 

f 

.out  C i ] 

case 

1 

m 

• 

if  Cf.outm 

=  =  0) 

f-outCiJ 

= 

2  ; 

hreax ; 

case 

2 

• 

• 

if  Cf-outCi] 

==  1) 

f -out  CD 

= 

2  ; 

br ea<; 

case 

3 

• 

• 

f.outti]  = 
brealc  ; 

0 

? 

case 

4 

• 

• 

f.outCi)  = 

1 

; 

xtotr  =  ( *x tPtr ) , ext.ot r  ; 

> 

> 

/*-- . . . . . . . . . . . . . . */ 


/*---- — -- - Fner,_iNsc )  . — . - . */ 

/*  This  procedures  finds  the  delays  applicable  to  a  function  */ 

/*  connected  to  tne  outout  of  the  current  descriptor.  The  input  */ 
/*  numoer  to  which  the  current  decriDtor  is  connected  is  supplied*/ 

f del. ins  C ino) 

int  ino  :  /*  inp  =  inout  number  to  which  tne  current  desc,*/ 

(  /*  connected  */ 

Jnt  1,  j#  K  ? 
struct  matrix  *mtotr  : 


/*---- - - - - - COMPUTE  delays 

if  (f.outCO)  ==  1) 

< 

if  ( inp  ==  0) 

delCO]  =  C*otr),param(2]  ? 
else 

delCO)  =  ( *otr ) . oaram C4]  ? 

) 

else  /*  if  first  output  is  1  */ 

{ 

if  Cino  ==  0) 

deltOl  =  ( *otr ) , param C3]  ; 
ej  se 

delfO]  =  ( *ptr ) .oaram C  5  3  ? 


/*  del-0 
/*  del-0 


/*  del-0 
/*  del-0 


- - - ....*/ 

rise  del  CO , 0)  */ 
rise  de 1 C 1 , 0 )  */ 


fall  delCO, 0)  */ 
fall  del C 1 , 0 )  */ 


if  (C*ptr).mptr  !=  NULL)  /*  multi-output  case  */ 

< 

mtotr  =  C*otr),motr  ; 


for  (1  =  t;  1  <  nun. outs;  i  =  i  +  1) 

< 

if  cf.outci]  ==  n 
{ 

if  (inc  ==  0) 

delCi)  =  ( *mt  pt  r )  ,  rdelayO  ;  /*  del-1 

else 

delCi]  =  (*mtotr),rdelayl  ;  /  *  del-1 

> 

else  /*  if  ith  outout  is  0  */ 

< 

if  Cino  ==  0) 

del  Cl)  =  C*mtotr )  ,f  delayO  ;  /*  del-1 

else 

delCi)  =  ( *mtotr ). f delay  1  ?  /*  del-i 

> 

if  ( ( *mtDtr ) . matotr  ==  NULL) 
breavc  ? 
else 

mtotr  =  (  totr  )  ,  ma to tr  ; 

> 

> 

.-end  COMPUTE  DELAY s---- ------- 


rise  de  1  ( 0  ,  i )  */ 
rise  del ( 1,1)  */ 

rise  del(0,i)  */ 
fall  delCi, i)  */ 


*/ 


/*  For  a  -nuit i-outout  function,  different  delays  are  possible,  */ 
/*  Insert  in  proper  slot  for  each  different  delay  */ 

for  (i  =  0;  i  <  nun. outs?  1=1+1) 

< 

if  CdelCi]  !=  -1)  /*  delay  =  -1  means  input  and  output  are  */ 

{  /*  not  related,  */ 

delay  =  delCi)  ; 
f f.outCi]  =  f.outCi)  ? 


-check  for  identical  delays 
for  Cl  =  i+i;  j  <  num.outs?  j  =  j  +  1) 

{ 

if  CdelCj]  =s  delay)  /*  For  identical  delays  on  */ 

ff.outCj)  =  f.outCi]  ?  /*  different  outputs,  function  */ 
else  /*  should  be  inserted  only  once*/ 


f f -ou t  C  j ) 

> 

/* - - 


/*  -1  output  means,  iceeo  the  */ 
/*  output  */ 

- - - - - - ....... - -*-.*/ 


/♦-------Eliminate  the  delay  cases  which  have  been  covered  ♦  / 

for  =  0;  *  <  num.outs:  »c  =  k  ♦  l ) 

{ 

if  (delCk)  ==  delay) 
del  CIO  =  -1  ? 

> 


insertC)  ;  /*  insert  In  proper  slot  */ 

> 

else  /*  if  delay  =  -l  */ 

ff.outCi]  =  -1  ; 

> 

} 

/* - - - - - - - - */ 


/* - - - - X^SCRTO- - - - - - - - */ 

/*  This  orocedure  Inserts  the  function  in  proper  slot  In  T ,  * ,  */ 

insert ( ) 

{ 

int  1,1, K,  slot.no  ; 

slot.no  =  (delay  +  tilling. wheel ) %?ndelay  ; 
depthCslot-no]  =  depthCslot.no]  ♦  1  ; 

if  Cendttslot.no]  !=  MULL ) 

C*(endtCslot-no])).tptr  =  freft  ; 
else 

begintCslot.no]  =  freft  ; 

/*  allocate  storage  for  tstac*  */ 
endtCslot.no]  =  freft  ; 
freft  =  C *f ref t) . totr  ; 

(*(endt Cslot.no] )).tbtr  =  NULL  : 

/*-.... - - - - - »/ 


(*(  endr  [  s  lot.no  J  )•)  .dotr  =  parent. Dtr  ; 

( *(endt Cslot.no] ))  ,ne«val  =  ff.outCO]  ; 

if  (num.outs  >  1)  /*  mul ti-output  cases  */ 

{ 

(*(endt Cslot.no] ) ).nptr  =  fret  ; 

/*  allocate  storage  for  newstacK  */ 

( *t r ef ) .newvalue  =  ff.outCl)  : 

nwiDt  =  fref  ? 

fref  =  ( *f ref ) • newotr  ; 

if  (num.outs  >  2) 

{ 

k  =  o  : 

1  =  2; 

while  ( <  ==  0) 

( 

( *nwl pt ) . newptr  =  fref  ; 
nwlot  =  fref  ; 


(*fref),newvaiue  =  f.  f  .  o  u  t  [  j  ]  ; 
fref  =  ( *f ref ) . newptr  ; 

j  =  j  *  1  ; 
if  Cj  ==  nun.outsV 
break  ; 

> 

> 

( *nwi ot ) . newntr  =  ^ULL  ? 

> 

else  /*  if  sinale  output  function  */ 

( * ( endt C s lot .no] ) ) . notr  r  NULL  j 


/*  put  new  value  in  the  slot  */ 


/*----. - -----------READ  IMPUT  routine - - - ------*/ 

read.inouttddnura) 
int  ddnun  ; 

< 

int  i,  order,  k,  siotn,  pO,  p2  ; 

/*  determine  inout  order  i.e.  which  input  is  to  be  read  */ 

pO  =  desc Cddnun] . para"  [0]  ; 
o2  =  desc Cddnun] . oaram  (2]  ; 
for  C  i  =  0;  1  <  nun. input  ;  i  =  i  ♦  1  ) 

<  if  (  pO  ==  inptcCil  ) 
break  ; 

> 

order  =  i  ? 

/*  inout  order  found  so  quit  searchinq  */ 
if  Csav.tine  1=  tine  ) 

{ 

sav.tine  =  tine  ; 

for  (  i  =  0;  i  <  num. inout  ;  i  =  i  >  1  ) 

< 

f scanf ( rp , "%d" , &k )  ; 

inotCi]  =  k  ? 

> 

) 

f-ou  t ( 0 ]  =  inptCorder]  ; 

siotn  *  ( t iminq-wheel  *  p2)%(mdelav)  ; 

depthrslotn]  =  deotntslotn]  ♦  1  ; 

if  CendtCslotnl  1  =  «ULL  ] 

C ♦( endt Cs lotn] ) ) • tDtr  =  freft  ? 
else 

beqint  Cslotn]  =  freft  ? 

/*  allocate  storaqe  for  tstac<  »/ 
endt ( siotn]  r  freft  ; 
freft  =  ( ‘freft ). tDtr  : 


C*(endtfslotn))).tPtr  =  NULL 


/* - - - - */ 

(* ( endt Cslotn) ) ) . dot r  =  l ( desc (order ) )  ? 

(*(endt CslotnJ ) ) .newval  =  f.outCOl  ; 

(*Cendt Cslotnl) ) .notr  =  «ULL  ; 

(*(endt (slotnl ) ) . sf lag  =  l  J 

> 

/» . . - . . 


/% - - - - -.-.-WRIT?:  OUTPUT  routine-  — - -- - --*/ 

write. output  C) 

/*  nufl. print  contains  the  number  of  lines  to  be  Printed  */ 

/*  out-interval  is  interval  after  which  value  is  to  oe  orinted  */ 
/*  symC). index  contains  indices  of  descs*  reoresentino  output  */ 

< 

int  i  ; 

if  (sav. write  ==  0) 

< 

fprintf Cwo, "  time") ? 

for  (i  =  07  1  <  num.orint  ;  1  =  i  >  1) 
f pr intf C wp ,  "  %  5  s " rsymCi] » name)  ? 
f pr intf ( wo ,  "\n"  )  ; 
f flush  C  wp )  ; 

> 

sav. write  =  1  ; 

fprintf  C  *p,  "  %3d  " , t i me  )  ; 

for  (i  =  0;  i  <  num. print  ;  i  =  1  ♦  1) 

fprintfCwp,"  %5d" ,desc((symCi]. index)]. oresent-outout)  ; 
fprintf (wo, "Nn")  ; 
fflush(wo)  ; 

> 

/*--- - - - - - - - - - —  — - */ 

♦include  "block" 

INVERTER- - - - - - 

tNVERTCfla,  innx,  ou) 
int  fla  ,  *inox,  *ou  ? 

{ 

if  (fla  ==  0) 

indataCinpx,  l)  • 

switch ( ( *inox ) ) 

{ 

case  0  :  C*ou)  =  1  ; 
break  j 

case  1  :  (*ou)  =  0  ; 

break  ; 

case  2  :  (♦ou)  a  2  ; 

> 


nu’n.outs 

> 


I 


*/ 


/< . . ANDO . . */ 

ANOCfla  ,  Inpx,  ou) 

In t  fig  ,  *inpx,  *ou  ? 

{ 

1  n  t  s  ; 

If  (fig  ==  0) 

indataCinDX,  2)  : 

s  =  (*inpx)  ♦  (*(lnpx  +  1))  ; 
switch ( s ) 

{ 

case  0  :  (*ou)  =  0  : 
brea<  ? 

case  l  :  (*ou)  =  0  ; 
b  r  e  a  <  ; 

case  2  :  if  ((*inox)  ==  1) 

(*ou)  =  t  ? 
else 

(*ou)  =  0  ; 
break; 

default  ?  (*o»)  =  2  ; 

) 

num.outs  =  1  ; 

> 


/* . . -0R() 

3R(fla  ,lnox,  ou) 
lnt  fig  ,  *inox,  *o»J  ? 

( 

lnt  s  ? 

If  (fig  ==  0) 

IndataCinDX,  2  )  ? 


s  =  (*lnDx)  ♦  (*CinoxM)) 
switch ( s ) 

( 

case  0  :  (*ou)  =  0  ; 
break  ; 

case  l  :  (*ou)  =  l  ; 
break:  ; 


case  2 


if  (C*inpx)  == 
(*ou)  =  1  ; 
else 

(*ou)  =  2  ? 
break: ; 

:  (*ou)  =  1  ? 
break:  ; 


/*  ou  is  pointer  to  f.out  */ 


n 


*/ 
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case  3 


1 


default  :  (*ou)  =  2  ; 

> 

nam.outs  =  1  ; 

> 

/*--- . - . . */ 


/♦--------------------indataO- 

/*  input  data  retrieval  for  a  function  */ 

indata ( Iodx  , inns ) 
int  *  1  n  p  x ,  inns  ? 

/*  inox  =  input  data  array,  inns  =  number  of  input  data  */ 

< 

struct  descrot  *tmptr  ? 
int  i  ; 

if  (inns  >=  1) 

{ 

(*inox)  a  ( ♦oarent.ptr ) , param [0]  ; 

inns  =  inns  -  1  ; 
if  (inns  1=  0) 

< 

(*(inpx+t))  =  (♦oarent.ptr ) • Daram ( 1 3  ? 

inns  =  inns  -  1  ? 

> 

1  =  2; 

tmDtr  =  parent. Dtr  ; 

*  bile  (inns  i=  0) 

{ 

tmptr  =  ( * tmot r ) . ext.ptr  ; 

(*(inox  t  i))2  ( ♦tmotr ) . param  [0]  ; 

inns  =  inns  -  1; 
i  =  i  ♦  1  ; 
if  (inns  !=  0) 

< 

(*(inDx  +  il)  =  ( *tmptr ) . param [ 1 ]  ? 

i  =  i  t  1  ; 

inns  =  inns  -  1  ; 

> 

>  /*  end  while  */ 

> 

> 

/*-  ...............  ...... - ... - - - - - - - - - ...*/ 


/*----- - ..... - - - - - - - ... - ..... - */ 

hashf(s)  /*  forms  hash  value  for  string  s  */ 


char  *s; 

( 

int  hashval  ; 

for  (hashval  =  0;  *s  i=  '\0'  ;  ) 
hashval  ♦  =  *s++  ; 

test ( thashval ) ; 


/*  hash  ID  name  into  an  index  */ 
/*  and  test  for  collisions  */ 
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hashtanleChashcountlsnashval? 
h  a  s  n  c  o  u  n  t  ♦  + ; 

return  (hashval)  ; 

> 

/< - - - - - - —  - . . . . . . */ 


/* . . . testn - ---- 

testC value) 
lnt  *value; 

< 

lnt  1? 

for  (1=0?  l<hashcount?  1++) 

{ 

If  (hashtabie Cl) ss(»value) )  /* 

< 

C*value)=(*value)+ll;  /* 

test(value);  /* 

> 

> 

> 

/» . . . . ...... - 


*  / 


collision?  */ 

yes,  add  a  orime  number 
and  test  this  one  */ 


*/ 


*/ 


. . . . qetna*e()— - - - --- - 

getnameO  /*  returns  the  name  in  toxenhuff  */ 

( 

lnt  1,  c  ,  flag,  delimiter  ; 

1  =  0; 

delimiter  =  -1  ; 
flag  =  0  ; 

whileCC  delimiter  <  1)  II  (flag  ==  0)) 

< 

c  =  foetc(rD)  ; 
switch  Cc) 

< 

case  '  '  :  delimiter  =  1  ; 
h  r  e  a  K  ; 

case  :  delimiter  =  1  ; 

b  r  e  a  *  ; 

case  '\n'!  delimiter  =  1  ; 

endinoutname  s  1  ; 
flag  -  1  ; 
b  r  e  a  <  ; 

default  :  flag  =  1  ; 

delimiter  =  0  ; 

> 

if  (delimiter  ==  0) 

< 

if  (i  <=  6) 

< 

tofcenbuffCi)  =  c  ; 
i  =  i  ♦  i  ; 

> 


> 


> 

tok-enbuf  f  [  i]  =  '\0#  ; 

> 

/* - - - - - - */ 
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APPENDIX  E. 


FTYPE 


FAD  DR 


BLOCK 


SIMULATOR  AUXILIARY  FILES 

Primitive  function  type  declarations.  An 

^include  file. 

Primitive  function  pointer  initializations.  An 
^include  file. 

The  C-language  behavioral  descriptions  for  the 
primitives.  An  ^include  file. 
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int  NAND( ) ; 
int  NOR( ) ; 
int  ANDTHRE ( ) 
int  ORTHREE ( ) 
int  NANDTHR() 
int  SRBLOCK ( ) 
int  RETDBLO ( ) 
int  ANDFOUR ( ) 
int  0RF0URO; 
int  EXOR ( ) ; 


The  Auxiliary  File  FTYPE 


pnfn[3]  = 
pnfn[4]  = 
pnfn[6]  = 
pnfn[7]  = 
pnfn[8]  = 
pnfn[9]  = 
pnfn[1 0 ]= 
pnf n [ 11]= 
pnfn[ 12]= 
pnfn[1 3]= 
pnfn[1 4]= 
pncnt  =  1 


NAND; 
NOR; 
EXOR; 
ANDTHRE; 
NANDTHR ; 
SRBLOCK ; 
RETDBLO; 
ANDFOUR ; 
NANDFOU ; 
ORTHREE ; 
ORFOUR ; 
5; 


The  Auxiliary  File  FADDR 


*  block  level  nrl^itlve  iescriDtion  file  * 


*j  a  MO  GATE- 

MAND ( f 1 g  , inox  ,  ou 1 


int  fig  ,  * 
< 

int  i  ; 

Inpx  ,  * o u  ; 

if  C fig  == 

0) 

indata  C 

inpx,  2)  ? 

1  s  C  * inpx )  +  C  * ( inpx 

*  1 ) )  ; 

swit ch  C i ) 

< 

case  0  : 

(*ou)  =  l 
break  ; 

i 

case  1  : 

(*ou)  =  l 
break  ; 

? 

case  2  : 

if  ( C * 1 n p x )  ==  1) 

(*ou)  = 

0  ; 

else 

( *ou )  = 

l  ; 

break  ? 

default 

:  C*ou)  = 

2  ? 

> 

num.outs=l; 

> 

/* . */ 


/*- - -  dOR  GATE-----------------------------------*/ 

MORCfla  ,inox,  ou) 
int  fig  ,  *  inox ,  *  o  u  ; 

< 

int  i  ; 

if  (fla  ==  0) 

in data  (  i  n  p  x  ,  2 )  ? 

i  s  C  *  inox )  +  ( *  C inox  f  1))  ; 
s*i tch( i ) 

< 

case  0  :  C*bu)  =  1  ; 
break  ? 

case  1  :  ( *  c  u )  =  0  ; 
break  ; 

case  2  :  if  C(*inpx)  ==  1) 

( *ou )  =  0  ; 
else 

(  *ou )  =  2  : 
break  ; 

default  :  if  C((*inDX)  ==  1)  II  C(*CinDx  +  D)  ==  O) 

C  *  o  u )  =  0 ; 


el  sp 

(*ou)  =  2  ; 

> 

num.outs  =  1  ; 

> 

/* . . 


/* - - - THREE  INPUT  AND  GATE-----------------------*/ 

ANDTHRECfla  ,inox,  OU) 

Int  fla  ,  *  inox ,  *ou  : 

{ 

int  1 n  n  C  2 )  ; 
if  (fla  ==  0) 
indatadnox,  3)  ; 

AND ( 1 , inDx ,  inn )  : 

innCl)  =  ( *  ( i  n  o  x  +  2))  ; 

AMD(l,inn,  ou)  ; 

num.outs  *  l  ; 

> 

/*-- - - - - - - - - - - - —  —  —  -  —  —  — 


/♦--------------------THREE  INPUT  N'AND  GATE----------------------*/ 

NANDTHRCflq  ,inox,  ou) 

Int  fla  #  Mhdx,  *ou  ; 

{ 

int  m  / 

if  (fla  ==  0) 

indataCinox,  3)  ? 

ANDTHREC X , inox,  *m)  ; 

INVERTd  ,&m,  ou)  ; 

num.outs  =  I  ; 

> 

/* - - - --*/ 


/* - SR  BLOCK - - - - - 1/ 

SRBLOCK (fla  ,inox,  OU) 
int  flq  ,  *inpx,  *ou  ? 

{ 

int  inn ( 2]  ; 

if  (fla  ==  0) 

indatadnpx,  3)  ; 

n  a  w  D  ( 1 ,  i  n  p  x  ,  inn)  ? 
inn  C 1 1  =  (♦(inox  +  2))  ; 

(♦oil)  =  (  ♦  i  n  n  )  ; 

NAMDC1*  inn,  ( out  1 ) )  ? 

(*(ou*2)  )  =  (*(ou  *■  1))  ;  /*  X  output  is  same  as  o#  */ 
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> 

/  * 


nuo.outs  =  3  ; 


*/ 


/* - - - - - RETD5L0 (  )  - - - - - */ 

retdbuoc f ig  ,inox,  ou) 
int  fia  ,  *inpx,  *ou  ? 

< 

int  i ,  inn  C  33  ? 

if  (flo  ==  0) 

indatadnox,  6)  ; 


N4HOC 1 ,  (incx  +  3), inn)  ; 

/* 

A  =  N AND ( X 1 ,  X2)  */ 

/* 

inn  CO]  =  A  •  */ 

inn  C 1 )  = 

( *  i  n  o  x )  ? 

/* 

innCl]  =  clr  */ 

inn  [ 2 )  = 

C*(inox  ♦  2)3  ? 

/* 

inn  C 2 3  =  CLK  */ 

MANDTHRCt 

,inn,  ( o  u  ♦  3 ) ) ; 

/* 

X2  =  fJANDTMRE(A,clr,CLK) 

:  */ 

NAMDTHRCl 

,(inox  ♦  2) ,  &(  inn  C2)  ) ) ;  /*  3  =  MANDTHRECX2,  COK, 

XI)*/ 

/* 

inn  (23  =  B 

*/ 

NAN0(l,(inox  ♦  4),0U)  ; 

/* 

Q  =  NANDCX2,  X  3 )  ; 

*/ 

i on  C 0 3  = 

(*ou)  ; 

/* 

inn  C03  =  Q 

*/ 

innm  = 

( *  inox )  ; 

/* 

inn  ( 1 3  s  clr 

♦  / 

NAN0THRC1 

,  Inn,(ouM))? 

/* 

3C  =  MANDTHRE(OfClr,B)j 

*/ 

inn  [0]  = 

( * ( inpx  ♦  1))  ; 

/* 

inn  CO 3  =  D 

*/ 

NAMDTHR ( 1 

,  inn,(ou+2)); 

/* 

XI  =  N AMOTHRE ( 8 ,  clr,  D) 

*/ 

( * ( ou  +  4 ) ) 

=  (*(ou  *  i ) )  ; 

/* 

X  3  =  Qc 

*/ 

num.ou ts 

=  5  ; 

> 

/* - - - — - — . i/ 


/% - - - -ntJR  INPUT  AMO  GATE - */ 

ANDFOUR ( f la  ,innx,  ou) 
int  fla  ,  *  i  n  p  x  ,  *  o  u  ; 

< 

int  i  n  n  C  ?  3 ; 

if  (fla  ==  0) 

indataCinpx,  4)  ; 

AMDTHRE ( 1 ,  i  n  p  x  ,  inn)  ; 

1  n  n  C 1 3  =  ( *  ( I nrx  ♦  3))  ? 

AMDCl,  inn,  ou)  ; 

nuro.outs  =  l  ? 

> 

/i- - - - ...... - - - —  */ 


- - N ANOFCUP  C  )  - - - *  / 

N  A  n  0  F  OU  (  f  1  a  ,  I  n  o  x  ,  ou) 
int  fig  ,  ♦  inD  x ,  *ou  ; 

{ 


in t  ■" 


if  (fla  ==  0) 

indata (inox,  4)  ? 

A*DFnu*n  ,  inox ,  &t»)  ; 

IWVgPTC 1 ,  Sm,  on)  ; 

nu^.outs  =  1  ; 

> 

/* - - - - - - - ........ - - - ---*/ 


- - - ORTHH EEC 

ORTHREE ( f la  ,inox,  on) 
lnt  fla  ,  *inpx,  *ou  ; 

{ 

int  Inn  C2) ; 

if  (fla  ==  ft) 

Indata(inpx,  3)  ? 

0R(l,inpx,  inn)  ; 
innCll  =  ( * ( i nox  t  2))  ; 

OR ( 1 ,  Inn,  ou)  ; 

nu*.outs  =  1  ? 

> 

/*..... - - - ............. - - - - - .... - 


/* - FOUR  INPUT  OR  GATE- . . . . . ---*/ 

ORFOURCfld  , inox ,  ou) 
int  flo  ,  *  i  n  n  x  ,  *  o  u  ; 

< 

int  I n  n  C  2  3  ? 

If  (fid  ==  0) 

tndatadnpx,  4)  ; 

ORTHREFC 1 , inpx  ,  inn)  ? 

InnCll  =  (*(inpx  +  3))  ; 

0PC1,  inn,  on)  ; 

num.outs  =  1  ; 

> 

/*.... - - - - - - - - - v 


/* - - ---FXOP  GATE 

EXOR  ( fla  , inox ,  ou ) 
int  fla  ,  *  inox ,  ♦ou  ; 

< 

Int  i  ? 
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*/ 


if  C  f 1  a  ==  C) 
iniatsf inn* 


) 


i  =  (*inpx) 
stfltchCi ) 

{  - 

case  0  : 
case  1  : 
case  2  : 


default 

> 

num.outs  = 

> 

/*- . 


♦  (*(iicx  *  l))  ; 


C*ou)  =  0  ; 

break:  • 

(*ou)  =  l  ; 
break  : 

if  ( ( *  1 n P x )  =  =  1) 
(*ou)  =  0  ; 
else 

f*on)  =  2  ; 

break  : 

:  (*ou)  =  2  ; 

1  ; 


*/ 
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